Top 10k strings from Assembler Sources (19xx)(-).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
250 DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH
46 DB 1,0,0,0,0,0,0,0,0,0,0,1
24 DB 132, 36, 36, 33
19 DB 01100110B
14 (PSETTD),A
13 LD (HL),A
12 ORG 64909
12 ORG 0FE00H
12 ORG 0FDFDH
12 LOAD 64909
12 LOAD 0FE00H
12 LOAD 0FDFDH
11 ADD
10 DB " "
10 A,(PIECEY)
10 (PIECEY),A
10 LD B,A
10 DB 0FDH,0FDH,0FDH,0FDH,0FDH,0FDH,0FDH
9 ORG 65500
9 LOAD 65500
9 ;NEIN -> SPRUNG
9 (CHADDR),HL
8 LD (CHADR),HL
8 HL,AFILE+12
8 ADD HL,HL
8 A,(PSETTD)
8 (ZUFZ+1),HL
8 CALL
7 LD A,(HL)
7 CLKON LD A,0FEH
6 SET 0,(HL)
6 POSY DB
6 LD (SETHL+1),A
6 LD (PLOR+1),A
6 JR NZ,LOOPS2
6 HL,(POSADR)
6 DB 0,0,1,1,0,0
6 ADD A,040H
6 A,(NXTPIE)
6 (SETRES),A
6 (POSADR),HL
6 RET
6 PUSH
6 INC HL
6 ADD HL,DE
5 LD BC,6144
5 COUNT:= #0
5 AN LD A,0FEH
5 ;schreiben.
5 ;punkt FDFDh enth.
5 ;Mal den Einsprung-
5 ;Liste auf, die 257
5 ;I nimmt das High-
5 ;Byte der Adr. der
5 ;Bei C-Flag wird gesetzt, sonst nicht...
5 EX DE,HL
4 NN = 0 TO 65535.
4 LD HL,23659
4 LD HL,15360
4 LD A," "
4 JR NZ,LOOP3
4 JR NZ,LOOP1
4 HL,PIECES-9
4 HL,(ZUFZ+1)
4 HL,(MANPOS)
4 HL,(FLDBAS)
4 HL,(23672)
4 EX (SP),HL
4 DEFMAC ("FILL*BYTE-WITH*",NN,NN)
4 DD #0 - [$ + 1]
4 DB 255,255,255,255
4 DB 252, 36, 36, 63
4 DB 135,228, 39,225
4 DB 132, 60, 60, 33
4 DB 11111111B
4 DB 11101110B
4 DB 0EDH, 0BBH
4 DB 0BDH + #1<<5
4 DB 086H + #0<<3
4 DB 00111100B
4 DB 00100100B
4 DB 0,255,255,0
4 DB 0,0,1,1,1,1,1,1,0,0
4 DB "00000"
4 DB "* *"
4 DB 11111111B
4 DB 0F2H,0FFH
4 D,(HL);BITS-DE
4 COUNT:=COUNT-1
4 A,(PIECEX)
4 A,(HL);FARBE-A
4 ;______________________________
4 ;UNTER INTERRUPT.
4 ;PRINTe ueber POSX;POSY+CHAR
4 ;POSITION RUECKSCHREIBEN:
4 ;POSITION RETTEN:
4 ;DIE ROUTINE AB 'START' LAEUFT
4 ;B=X;C=Y PLOTPOSITION
4 ;Ab hier (Adresse FE00H) steht
4 ;257mal FDH im RAM.
4 ;**************************************
4 ;***************************
4 ;***********************
4 ;"OPEN 2", Ende.
4 ; SOFT-CLS p.2.8.1988
4 ***************
4 (WLVAR+1),A
4 (ROTVAR),A
4 (CHADR),HL
4 $WHILE COUNT>0
4 CALL STRING
4 POP BC
4 CALL INIT
4 ADD HL,BC
3 stk_pi_half
3 SP,(23613)
3 SCLS PUSH AF
3 POSY NOP
3 ORG 0FF01H
3 LOAD 0FF01H
3 LD HL,16384
3 LD HL,(SEED)
3 LD (HL),0
3 LD (DE),A
3 FILL 257 BYTE WITH 253
3 DJNZ LOOPS1
3 DE,(STKEND)
3 DB 1,1,1,1,1,1
3 DB 1,0,1,1,1,1
3 DB 0,1,1,1,1,0
3 DB 0,1,0,1,1,0
3 CHAR NOP
3 B,6;ZEILEN
3 B,6;REIHEN
3 ;zur Tastaturab-
3 ;steht ab Adresse
3 ;if not jump to ERROR
3 ;get SIN @
3 ;get SIN 0
3 ;get COS @
3 ;get COS 0
3 ;frage aufrufen.
3 ;call the calculator
3 ;Zunaechst die ROM-
3 ;Interrupt-Routine
3 ;FDFDH im Speicher.
3 ;Dieser Sprung
3 ;ATTRFILE MIT (DE) RASTERN:
3 ;6 REIHEN DER KUGEL ZU 6 BYTES
3 *R QUERSCHNITT IN ITALIENISCH
3 SUB B
3 RLCA
3 POP AF
3 LD D,0
3 LD A,(LEN)
2 str_gr_eql
2 str_and_no
2 p. 6.8.1988
2 nos_neql
2 no_gr_eql
2 get_m_argmt
2 Zufallszahlengenrator
2 XOR,CP,RLC,RL,RRC,RR,SLA,SRA,SRL,
2 XCHANG PUSH
2 Titel+4096
2 Tattr EQU
2 START LD HL,HIVAR
2 SP,START-1
2 SLI,RLCA,RRCA,RLA,RRA,BIT,RES,SET,
2 SET 5,(HL)
2 ROT1 ADD
2 RES 4,(HL)
2 PP2 ADD
2 PP1 ADD
2 ORG 60000
2 NF1 ADD
2 M,OFF,ON,ADD,ADC,SUB,SBC,AND,OR,
2 LOAD 60000
2 LOAD $1+#0
2 LD HL,Titel
2 LD HL,Tattr
2 LD DE,DFILE
2 LD DE,AFILE
2 LD BC,4096
2 LD (ZAHL1),HL
2 LD (UNDERC),A
2 LD HL,TEXT-4
2 LD HL,KUDAT
2 LD HL,DFILE
2 LD HL,DAT1
2 LD HL,CURS1-256
2 LD HL,AFILE
2 LD HL,(POS)
2 LD DE,SHIFT
2 LD DE,40
2 LD DE,30
2 LD C,(IX+13)
2 LD BC,768
2 LD A,(DE)
2 LD (HL),7
2 LD (HL),2
2 LD C,31
2 LD A,(LEV)
2 LD A,(HL)
2 LAND2 PUSH
2 JR Z,NOIGN
2 JR NZ,POSOK
2 JR NZ,KUGEL
2 JR NZ,EING2
2 JP Z,LOOP5
2 JP RLOOP
2 JOYSTC PUSH
2 INCL1 INC
2 INC,DEC,DAA,CPL,SCF,CCF).
2 IF [#0<-128]&[#0>127]
2 HL,TEXTE-40
2 HL,PCOPY-9
2 HL,HISCR+4
2 HL,DFIELD+37
2 HL,DFIELD+22
2 HL,DFIELD+1
2 HL,Chars-256
2 HITITEL EQU $
2 HISCORE LD HL,Chars-256
2 HIPRINT LD A,22
2 HILIST EQU $-1
2 FILL*BYTE-WITH*
2 Ende DATEN BILD 1.
2 EX (SP),HL
2 EX DE,HL
2 EQU 1B76H
2 Daten Bild 1. >>
2 D_RET XOR
2 DJNZ LOOPL
2 DJNZ LOOP2
2 DISLEV PUSH
2 DEFSET _SZTO7 = 0 TO 7.
2 DEFSET _SZTO2 = 0 TO 2.
2 DEFSET _SXX
2 DEFSET _SS
2 DEFSET _SRR
2 DEFSET _SROTA
2 DEFSET _SROT
2 DEFSET _SQQ
2 DEFSET _SPP
2 DEFSET _SOO
2 DEFSET _SNNNN = 0 TO 0FFFFH.
2 DEFSET _SNN = -256 TO 255.
2 DEFSET _SIR
2 DEFSET _SII
2 DEFSET _SID
2 DEFSET _SGC
2 DEFSET _SDISP = -128 TO 127.
2 DEFSET _SDD
2 DEFSET _SCE
2 DEFSET _SCC
2 DEFSET _SBIT
2 DEFSET _SBD
2 DEFSET _SAR
2 DEFSET _SADS
2 DEFMAC ("PDATA")
2 DEFMAC ("INCHL8")
2 DEFMAC ("FIELD")
2 DEFMAC (/"RST*",_SNN)
2 DEFMAC (/"PUSH*",_SXX)
2 DEFMAC (/"POP*",_SXX)
2 DEFMAC (/"OUT(*),*",C,_SS)
2 DEFMAC (/"LD*,*",_SXX,_SNNNN)
2 DEFMAC (/"LD*,*",_SS,_SNN)
2 DEFMAC (/"LD*,*",_SIR,A)
2 DEFMAC (/"LD*,*",_SDD,_SNNNN)
2 DEFMAC (/"LD*,*",SP,_SII)
2 DEFMAC (/"LD*,*",A,_SIR)
2 DEFMAC (/"LD*,(*)",_SXX,_SNNNN)
2 DEFMAC (/"LD*,(*)",_SDD,_SNNNN)
2 DEFMAC (/"LD*,(*)",A,_SNNNN)
2 DEFMAC (/"LD*,(*)",A,_SBD)
2 DEFMAC (/"LD(**),*",_SXX,_SDISP,_SNN)
2 DEFMAC (/"LD(*),*",_SNNNN,_SXX)
2 DEFMAC (/"LD(*),*",_SNNNN,_SDD)
2 DEFMAC (/"LD(*),*",_SNNNN,A)
2 DEFMAC (/"LD(*),*",_SBD,A)
2 DEFMAC (/"LD(*),*",HL,_SNN)
2 DEFMAC (/"IN*,(*)",_SS,C)
2 DEFMAC (/"EX*,*",AF,AF)
2 DEFMAC (/"**,*",_SBIT,_SZTO7,_SS)
2 DEFMAC (/"**,*",_SADS,A,_SNN)
2 DEFMAC (/"**,*",SBC,HL,_SDD)
2 DEFMAC (/"**,*",ADD,IY,_SRR)
2 DEFMAC (/"**,*",ADD,IX,_SPP)
2 DEFMAC (/"**,*",ADD,HL,_SDD)
2 DEFMAC (/"**,*",ADC,HL,_SDD)
2 DEFMAC (/"**,(**)",_SBIT,_SZTO7,_SXX,_SDISP)
2 DEFMAC (/"**,(*)",_SBIT,_SZTO7,HL)
2 DEFMAC (/"**",_SROT,_SS)
2 DEFMAC (/"**",_SID,_SXX)
2 DEFMAC (/"**",_SID,_SS)
2 DEFMAC (/"**",_SID,_SDD)
2 DEFMAC (/"**",_SAR,_SNN)
2 DEFMAC (/"*(**)",_SROT,_SXX,_SDISP)
2 DEFMAC (/"*(**)",_SID,_SXX,_SDISP)
2 DEFMAC (/"*(*)",_SROT,HL)
2 DEFMAC (/"*(*)",_SID,HL)
2 DEFMAC (/"*",_SROTA)
2 DEFMAC ("RST*",_SZTO7)
2 DEFMAC ("RRD")
2 DEFMAC ("RLD")
2 DEFMAC ("RETN")
2 DEFMAC ("RETI")
2 DEFMAC ("RET*",_SCE)
2 DEFMAC ("RET")
2 DEFMAC ("PUSH*",_SQQ)
2 DEFMAC ("POP*",_SQQ)
2 DEFMAC ("OUTI")
2 DEFMAC ("OUTD")
2 DEFMAC ("OUT(*),*",_SNN,A)
2 DEFMAC ("OTIR")
2 DEFMAC ("OTDR")
2 DEFMAC ("ORG*",_SNNNN)
2 DEFMAC ("NOP")
2 DEFMAC ("NEG")
2 DEFMAC ("LOAD*",_SNNNN)
2 DEFMAC ("LIST*",_SOO)
2 DEFMAC ("LDIR")
2 DEFMAC ("LDI")
2 DEFMAC ("LDDR")
2 DEFMAC ("LDD")
2 DEFMAC ("LD*,*",_SS,_SS)
2 DEFMAC ("LD*,(**)",_SS,_SXX,_SDISP)
2 DEFMAC ("LD*,(*)",_SS,HL)
2 DEFMAC ("LD(**),*",_SXX,_SDISP,_SS)
2 DEFMAC ("LD(*),*",HL,_SS)
2 DEFMAC ("JR*,*",_SCC,_SNNNN)
2 DEFMAC ("JR*",_SNNNN)
2 DEFMAC ("JP*,*",_SCE,_SNNNN)
2 DEFMAC ("JP*",_SNNNN)
2 DEFMAC ("JP(*)",_SII)
2 DEFMAC ("INIR")
2 DEFMAC ("INI")
2 DEFMAC ("INDR")
2 DEFMAC ("IND")
2 DEFMAC ("IN*,(*)",A,_SNN)
2 DEFMAC ("IM*",_SZTO2)
2 DEFMAC ("HALT")
2 DEFMAC ("EXX")
2 DEFMAC ("EX*,*",DE,HL)
2 DEFMAC ("EX(*),*",SP,_SII)
2 DEFMAC ("EI")
2 DEFMAC ("DW*",_SNNNN)
2 DEFMAC ("DS*",_SNNNN)
2 DEFMAC ("DJNZ*",_SNNNN)
2 DEFMAC ("DI")
2 DEFMAC ("DD*",_SDISP)
2 DEFMAC ("CPIR")
2 DEFMAC ("CPI")
2 DEFMAC ("CPDR")
2 DEFMAC ("CPD")
2 DEFMAC ("CALL*,*",_SCE,_SNNNN)
2 DEFMAC ("CALL*",_SNNNN)
2 DEFMAC ("**,*",_SADS,A,_SS)
2 DEFMAC ("**,(**)",_SADS,A,_SXX,_SDISP)
2 DEFMAC ("**,(*)",_SADS,A,HL)
2 DEFMAC ("**",_SAR,_SS)
2 DEFMAC ("*(**)",_SAR,_SXX,_SDISP)
2 DEFMAC ("*(*)",_SAR,HL)
2 DEFMAC ("*",_SGC)
2 DE,SCORE+4
2 DE,DFIELD+37
2 DE,DFIELD+34
2 DE,AFILE+12
2 DD #1 - [$ + 1]
2 DB"UNDOLF 080000"
2 DB"TODAY'S GREATEST PIG'S:",13,13
2 DB"SIEGFRIED 090000"
2 DB"NO ONE 010000"
2 DB"LEGOLAND 030000"
2 DB"GORM 050000"
2 DB"GANDALF 070000"
2 DB"ELEPHANT 020000"
2 DB"EKLATAND 040000"
2 DB"DUMMY 000000"
2 DB"BRUNHILDE 060000"
2 DB"ADALBERT 100000"
2 DB 94,4,70,0,232,12,68,2,224
2 DB 9 + #2<<4
2 DB 87,0,240,68,68,15,0,34,34
2 DB 80H + #1<<3 + #2
2 DB 80H + #0<<3 +#1
2 DB 79,6,96,6,96,6,96,6,96
2 DB 70H + #1
2 DB 7 + #0<<3
2 DB 58,2,100,12,96,2,100,12,96
2 DB 53,2,38,4,112,3,34,0,113
2 DB 50,50,60,60,45,60,30,100,100,30,110,30,120,30,0
2 DB 4EH + #0<<3
2 DB 46H + #0<<3
2 DB 40H + #0<<3 + #1
2 DB 4 + #0 + #1<<3
2 DB 38,4,98,3,96,4,98,3,96
2 DB 36H, #1
2 DB 34H + #0
2 DB 30,30,0
2 DB 30,10,20,10,18,10,17,9,16,8,15,7,14,6,13,5,12,4,6,2,3,1,0
2 DB 3 + #0<<3 + #1<<4
2 DB 27H + #0<<3
2 DB 256;Force error
2 DB 255,255,255,200,200,100,255,255,255,210,200,110,255,240,244,244,255,234,0
2 DB 252, 39,228, 33
2 DB 20H + #0<<3
2 DB 200,200,1,1,1,1,200,200,1,1,1,1,210,200,255,222,1,1,1,1,190,198,190,196,189,180,188,182,0
2 DB 200,100,0
2 DB 132, 36, 36, 63
2 DB 116,4,100,0,228,4,196,4,224
2 DB 11111100B
2 DB 11111010B
2 DB 11100111B
2 DB 102,102,102,102
2 DB 10011001B
2 DB 100,40,220,20,240,20,250,10,100,40,220,20,236,20,250,10,100,35,210,22,240,18,0
2 DB 1 + #0<<4
2 DB 0FDH, 9 + #2<<4
2 DB 0F5H,0C5H,0D5H,0E5H
2 DB 0EDH,4BH + #0<<4
2 DB 0EDH,44H
2 DB 0EDH,0B9H
2 DB 0EDH,0B8H
2 DB 0EDH,0B1H
2 DB 0EDH,0B0H
2 DB 0EDH,0A9H
2 DB 0EDH,0A8H
2 DB 0EDH,0A1H
2 DB 0EDH,0A0H
2 DB 0EDH, 6FH
2 DB 0EDH, 57H + #1<<3
2 DB 0EDH, 4DH
2 DB 0EDH, 4AH + #2<<4
2 DB 0EDH, 43H + #1<<4
2 DB 0EDH, 42H + #2<<4
2 DB 0EDH, 41H + #1<<3
2 DB 0EDH, 40H + #0<<3
2 DB 0EDH, 0BAH
2 DB 0EDH, 0B3H
2 DB 0EDH, 0B2H
2 DB 0EDH, 0ABH
2 DB 0EDH, 0AAH
2 DB 0EDH, 0A3H
2 DB 0EDH, 0A2H
2 DB 0EDH, 067H
2 DB 0EDH, 047H + #0<<3
2 DB 0EDH, 045H
2 DB 0E1H,0D1H,0C1H,0F1H
2 DB 0DDH, 9 + #2<<4
2 DB 0DDH + #2<<5, 86H + #0<<3, #3
2 DB 0DDH + #2<<5, 0CBH, #3, 46H + #0<<6 + #1<<3
2 DB 0DDH + #1<<5, 86H + #0<<3, #2
2 DB 0DDH + #1<<5, 46H + #0<<3, #2
2 DB 0DDH + #1<<5, 34H + #0, #2
2 DB 0DDH + #1<<5, 23H + #0<<3
2 DB 0DDH + #1<<5, 22H
2 DB 0DDH + #1<<5, 0CBH, #2, #0<<3 + 6
2 DB 0DDH + #0<<5, 70H + #2, #1
2 DB 0DDH + #0<<5, 36H, #1, #2
2 DB 0DDH + #0<<5, 2AH
2 DB 0DDH + #0<<5, 21H
2 DB 0DDH + #0<<5, 0E5H
2 DB 0DDH + #0<<5, 0E1H
2 DB 0DBH, #1
2 DB 0D3H, #0
2 DB 0CBH, 46H + #0<<6 + #1<<3
2 DB 0CBH, 40H + #0<<6 + #1<<3 + #2
2 DB 0CBH, #0<<3 + 6
2 DB 0CBH, #0<<3 + #1
2 DB 0C7H + #0<<3
2 DB 0C7H + #0
2 DB 0C6H + #0<<3, #2
2 DB 0C6H + #0<<3, #1
2 DB 0C5H + #0<<4
2 DB 0C4H + #0<<3
2 DB 0C2H + #0<<3
2 DB 0C1H + #0<<4
2 DB 0C0H + #0<<3
2 DB 0BDH + #0<<5
2 DB 0AH + #1<<4
2 DB 06H + #0<<3, #1
2 DB 02H + #0<<4
2 DB 01111110B
2 DB 01110111B
2 DB 01101000B
2 DB 01011111B
2 DB 01011010B
2 DB 00111111B
2 DB 00010110B
2 DB 0,24,60,102,102,60,24,0
2 DB 0,1,1,1,1,1,1,1,1,0
2 DB 0,0,0,0,1,1,0,0,0,0
2 DB 0,0,0,0,0,0,0,0,0,0
2 DB 0,0,0,0,0,0,0
2 DB #0 >> 8
2 DB #0 & 0FFH
2 DB "THIS "
2 DB "SPACE TO"
2 DB "PRESS "
2 DB "PAUSE "
2 DB "L:CHANGE"
2 DB "GAME... "
2 DB "FIRE TO "
2 DB "Ein Test"
2 DB "*PAUSED*"
2 DB "########"
2 DB " TO "
2 DB " PRESS "
2 DB " LEAVE.."
2 DB " ENTER "
2 DB " *DEMO* "
2 DB " XXXXXXXXXXXXXXX "
2 DB " START "
2 DB " OVER "
2 DB " LEVEL "
2 DB " GAME "
2 DB " ---- "
2 DB 11110001B
2 DB 11100101B
2 DB 11000001B
2 DB 10100111B
2 DB 10001111B
2 DB 10000011B
2 DB 016H,1,8
2 DB 016H,1,0
2 DAT1 EQU $
2 CURSOR PUSH AF
2 CALL PRZIF
2 CALL PRINT
2 CALL OUTA1
2 CALL KLICK
2 CALL DPIECE
2 BILDAUFBAU LEVEL 1.
2 BC;REIHE HOLEN
2 BC,(POSX-1)
2 BC,(AKTPOS)
2 B ;RAND RECHTS?
2 AF,IX,IY,I,R,NZ,Z,NC,PO,PE,P,
2 A,(ROTVAR)
2 = (RLCA,RRCA,RLA,RRA).
2 = (RLC,RRC,RL,RR,SLA,SRA,SLI,SRL).
2 = (OFF,ON).
2 = (NZ,Z,NC,C,PO,PE,P,M).
2 = (NZ,Z,NC,C).
2 = (IX,IY).
2 = (INC,DEC).
2 = (HL,IX,IY).
2 = (DAA,CPL,SCF,CCF).
2 = (BIT,RES,SET).
2 = (BC,DE,IY,SP).
2 = (BC,DE,IX,SP).
2 = (BC,DE,HL,SP).
2 = (BC,DE,HL,AF).
2 = (BC,DE).
2 = (B,C,D,E,H,L,GAP,A).
2 = (ADD,ADC,SUB,SBC,AND,XOR,OR,CP).
2 = (ADD,ADC,GAP,SBC).
2 ;umschalten. Falls
2 ;the argument count
2 ;ok. Sonst Meldung
2 ;loschen bei Ende
2 ;liegt: Nichts tun,
2 ;ins Programm
2 ;get sin A@
2 ;get sin A0
2 ;get cos A@
2 ;get cos A0
2 ;gedrueckt:
2 ;gedruckt. Sonst
2 ;fetch next char to be interp'd
2 ;fetch char being interp'd
2 ;durch "normalen"
2 ;drucken, falls
2 ;des Bits (=Anz. Schieben)
2 ;danach gesetzt,
2 ;adresse aus Position in BC
2 ;a$'"FILE:";n$
2 ;Zeilenlaenge in BC.
2 ;Warteloop
2 ;VOLLE ZEILEN LOESCHEN:
2 ;Uhr ausschalten
2 ;UP DATEN F.CPIECE+DPIECE
2 ;Texte printen
2 ;Teil in DFIELD loeschen
2 ;Teil drehen:
2 ;TEIL in DFIELD testen
2 ;TEIL in DFIELD bringen
2 ;Startlevel wechseln
2 ;Spielfeld loschen
2 ;Spieleinsprung
2 ;SWAP Spielfeld > DFIELD
2 ;SWAP DFIELD > Spielfeld
2 ;SOUND-ROUTINE:
2 ;Reihenzaehl`r INC:
2 ;ROUTINEN FUER CD-TITELDATEI:
2 ;Punkte geben
2 ;Pausenfunktion
2 ;PVARS & Statistik clear
2 ;PUNKT EIN LOETPUNKT?
2 ;NEXT-Feld loeschen
2 ;Level auf 0:
2 ;L <- L+POSY
2 ;KOORDINATEN SICHERN
2 ;KOORDINATEN RESTAURIEREN
2 ;Joystick Inputs
2 ;JOY DOWN - PAUSE:
2 ;JA -> SPRUNG
2 ;Interrupt-Modus.
2 ;Init Zufallszahlengenerator
2 ;Init SCORE,TROWS,ROWS+
2 ;Inc. Balken- Nr. in A
2 ;Im NEXT-Feld den Stein zeig.
2 ;INPUT-NAME ROUTINE:
2 ;HL enthaelt die Adresse
2 ;HL <- DFILE+B*2048
2 ;HISCORE ANPASSEN:
2 ;Falls es sich um
2 ;Falls "Pfeil nach
2 ;Drucke "0" ueber ROWS+SCORE
2 ;DISPLAY HISCORELISTE...
2 ;DFIELD clear:
2 ;DE <- CHAR*8+CHADR
2 ;Codes A6 to BF = illegal
2 ;Codes 3E to 9F = illegal
2 ;COS @ sin A@
2 ;Bestimmung der
2 ;BEREITSTELLEN:
2 ;B enthaelt die Position
2 ;B <- INT POSX/8
2 ;ABBRUCH SETZEN
2 ;A <- POSX*32+L
2 ;2S2D-DISK - 2560 SEKTOREN
2 ;0 -> LASTK.
2 ;*******************************************************************
2 ;*****************************************************
2 ;********************************************
2 ;******************************************
2 ;*************************************
2 ;**********************************
2 ;**** MERKZETTEL *************
2 ;* Spectrum Calculator *
2 ;* Mnemonic's...
2 ; SEKTOR 0 TRACK 0 = INFOSEKTOR
2 ; EIN EINTRAG = 64 BYTE
2 ; BYTE 0-3 = DATUM D. LETZTEN
2 ; = 512 EINTRAEGE AUF EINMAL
2 ; 4 EINTRAEGE PRO SEKTOR (256)
2 ; 32 KBYTE MEMORY FUER BEARB.
2 ; 256 EINTRAEGE PRO TRACK
2 ; 2 TRACKS = EIN ARBEITSSPEICHER
2 ; 16 EINTRAEGE PRO KBYTE
2 ; 10240-1 EINTRAEGE PRO DISK
2 ; IM SPEICHER.
2 ; 655360 BYTE
2 ; BEARBEITUNG
2 ; 640 KBYTE
2 ; 160 TRACKS ZU JE
2 7,(IY+001H)
2 15550;DOS AUS
2 15530;DOS AN
2 15372;SCHREIBEN
2 15369;LESEN
2 030H;ASCII>BIN
2 *T ULTRA RARE TRACKS VOL.1
2 *T THE ROCKY HORROR PICTURE SHOW
2 *T PILGRIMAGE
2 *R 3'SINGLE
2 *****************************************
2 * T E T R I S *
2 (STKEND),IY
2 (SETHL+1),A
2 (PLOR+1),A
2 (PIECEX),A
2 (NXTPIE),A
2 (HL),ANZAHL-1
2 (B,C,D,E,H,L,GAP,A,BC,DE,HL,SP,
2 (AENDER),A
2 $2: = [$2 & 1111111111110111B] + #0<<3
2 $2: = $2 | [$2 & 0000001000000000B]<<1
2 $2: = $2 & 1111101111111111B
2 LD HL,HIVAR
2 LD HL,15360
2 LD DE,HITITEL
2 LD DE,(HIVAR)
2 LD BC,18;LEN
2 LD B,LETTER
2 LD A,(HL)
2 LD (HL),A
2 LD (CHADR),HL
2 DJNZ LOOP4
2 CALL DINAME
2 CALL C,OVERL
2 CALL ATTR
2 ;ueberschritten,
2 ;8 Durchlaeufe.
2 LOAD 60000
2 SET 7,D
2 RRCA ;
2 PUSH HL
2 POP HL
2 POP DE
2 POP
2 LD HL,200
2 LD HL,(LEFT)
2 LD H,0
2 LD E,0 ;SPALTE 0
2 LD DE,32
2 LD BC,256
2 LD B,0
2 LD A,(LINES)
2 LD A,(CHRS)
2 LD (POINT),HL
2 JR
2 INC E ;Spalte in Ausgangsstellung positioniert.
2 INC A
2 END
2 DEC A
2 CP 9
2 CALL TEX ;AUFRUF
2 CALL TEX
2 CALL OPEN
2 LD BC,HILIST
2 LD (HL),C
2 LD (HL),B
2 LD (CHADR),HL
2 INC HL
2 16 SEKTOREN
1 zxmc87
1 zoing
1 zahl (MAX in A ueberg.)
1 zahl (0-6):
1 z80ass
1 without the need for leaving CHANGE mode.
1 window
1 where a and b are the coordinates of the centre of the screen, f and m are
1 when in command L (LOCATE), or the first string entered while in command R
1 weg
1 utext
1 uhr
1 uAre you sure? (Y/N)
1 tprint
1 tplot
1 titel
1 the right string, or it wraps round to reach the end of the cursor line. If the
1 tex
1 t cursor to text file.
1 string cannot be found then the words "NOT FOUND" will appear on the status line.
1 stops the BASIC program and produce an error report.
1 steuer
1 stellt in A eine Zufalls-
1 spiro
1 sp
1 source2
1 source
1 scroll
1 scr4
1 scr3
1 scr2
1 scr1
1 score
1 scls
1 router
1 rnd
1 reader
1 raster2
1 raster
1 ramsound
1 rahmen
1 psprite1
1 printv1
1 printh
1 printd
1 printb
1 print
1 present text file. The cursor is set to the top line of text on screen.
1 pprnt
1 plot
1 pinknois
1 pcount
1 number of them in a complete pattern.
1 number fetching and storing facilities which are normally used for the
1 multi
1 molekul
1 macros2
1 macro2
1 mac
1 m;dgain, fin
1 loops can be produced using the REPEAT-UNTIL and BREAK commands.
1 literals immediately following the call which describe what needs to be
1 liste
1 list1
1 liefert in A eine Zufalls
1 kugel4
1 kugel3
1 kugel2
1 kugel1
1 konst
1 keyboard break, then the loop is executed again.
1 jump_true,0F9H
1 jump_true,022H
1 jump_true,01EH
1 jump_true,014H
1 jump_true,00AH
1 jump_true,004H
1 jump_true,002H
1 jump_dist,002H
1 intro
1 intok
1 inter
1 integers which are the radii of the fixed and moving gears, and r is the
1 int2
1 int1
1 int
1 funktion
1 fsteuer
1 from any of the commands by pressing CAPS SHIFT/EDIT (except in COMMANDS O, J &
1 follow a USR call to this program, and put them on the calculator stack
1 fdfile
1 exception of Command A (AGAIN) which can be activated by pressing SYMBOL SHIFT /
1 done, adding multiplying and so on. Particular use has been made of the
1 distance of the pen hole from the centre of the moving gear.
1 denote (f+m) cos@ & (f+m) sin@, and COS0 & SIN0 denote r cos0 and r sin0)
1 dSUBRANGES
1 dLOAD end -
1 dDouble symbol - `
1 dCONSTANTS
1 d error(s) on pass
1 colour
1 cntmacro
1 cnt2
1 cdisk1
1 cdata1
1 calculator's memory area to manipulate numbers on the calculator stack.
1 calculator (called by a RST 0028). This is controlled by a string of
1 calcodes
1 boulder
1 big1
1 bas-asc
1 assembly is supported using statements such as IF-END and IF-ELSE-END. Variable
1 area, of at any time an error is detected a jump is made to 1C8A which
1 and calculates cosA@, sinA@, cosA0 and sinA0.
1 amidar
1 after the six dummy values at the bottom to replace the calculator's memory
1 access to the entire file. Cursor keys will still give you fast up/down movement
1 a$="W-rite"
1 a$="J-oin"
1 Zufallszahlengenerator:
1 ZWIL: PUSH DE ;Bildschirmadresse bleibt unveraendert.
1 ZWIL1: LD D,A ;Das aktuelle Bit und seine linke Nach-
1 ZGR: EQU 61 ;hoeherwertiges Byte des Charsets.
1 Workarea -
1 While in change mode you are not just limited to a screen full of text but have
1 WIDTH: PUSH AF
1 WAITK: LD A,(HL)
1 W). In the descriptions that follow <command A> means "PRESS A" etc.
1 VERGLEICH DE MIT IY (1700) ODER IX (1720) *
1 VARS EQU 23627; Stores start of variables
1 UP Initialisiere
1 UEBERPRUEFEN EINES PUNKTES *
1 This command will search for the next occurrence of either, the string entered
1 The search will begin on the line below the cursor, and will only end if it finds
1 The program is based almost entirely on the Spectrum BASIC-interpreter's
1 The funktions of the different sections of program are:
1 The format for a call to the program is RANDOMIZE USR 65274: REM a,b,f,m,r
1 Tape version...
1 TRANS: PUSH BC
1 TRANS: LD A,D ;Mit der
1 TOP DB 0;Top character line of window
1 TEXT4: EQU $
1 TEXT3: EQU $
1 TEXT2: EQU $
1 TEXT1: EQU $
1 TEX: PUSH DE ;Zeilen- und Spaltennummer bewahren.
1 TEX9: LD A,(HL) ;Beginn des Farbteils.
1 TEX8: POP DE ;Beginn des Farbteils.
1 TEX7: INC HL ;und DE wird auf die naechste
1 TEX6: POP DE ;Der Textzeiger geht zum
1 TEX5: PUSH BC ;getrennt behandelt.
1 TEX4: PUSH BC ;Zeichenstruktur werden die obere und die
1 TEX3: LD B,2 ;Bei der 4fach vergroesserten Darstellung der
1 TEX2: LD A,(HL) ;Textzeiger geholt und
1 TEX1: LD A,(HL) ;Beginn des Strukturprogrammteils.
1 TEX12: POP DE ;Alte Zeilen- und Spaltennummer beim
1 TEX11: INC HL ;Zeichen ueber und DE wird auf naechste
1 TEX10: POP DE ;Der Textzeiger geht zum naechsten
1 TEST: LD D,0 ;ZEILE 0
1 TABLE: DW 16384
1 STRIKES BACK
1 STOPED CALL
1 STEP DB 0
1 START: LD IX,(23563)
1 START DW 0
1 STACK MAP:
1 SPECTRUM/POKELISTE FUER GAMES:
1 SPECTRE-MAC occupies the memory from 6000H to A000H, with files at A000H.
1 SP,(ERRSP)
1 SP,(23613) ;Stack clearen
1 SKIP EQU 19B8H; ROM routine - find next variable
1 SHORT: LD A,(LEN); Remaining text not too long
1 SHIFT DS 8
1 SET 2,(IX+FG00)
1 SET 6,(HL)
1 SET 4,(HL)
1 SET 1,(HL)
1 SET 0,(IY+1)
1 SCROL: PUSH BC
1 SCAN: CALL CHECK; How long is the string?
1 SBC HL,DE ;plus 1 wird in die
1 SBC HL,DE
1 SBC HL,BC
1 S-top/C-ontinuous
1 RXU CALL
1 ROUTERCODE ERNIEDRIGEN *
1 ROUTER-PROGRAMM (CT 84/8) *
1 RIGHT DB 31;Right hand column of window
1 RET NZ ;nichts aendern.
1 RET ;Bytes im Bereich
1 RES 6,(HL)
1 RES 5,(HL)
1 RES 1,(IY+7)
1 RES 1,(HL)
1 RES 0,(IY+1)
1 REPEAT:LD HL,(START)
1 RDATA DB 3,0,5,8
1 RAUSCHGENERATOR
1 R(T0*}/O|/G
1 R##DM!,|T]##
1 PUSH HL ;Byte im CHANS-
1 PRST1: RST 010H
1 PRINT: CALL SCROLL; Scroll previous text
1 PRINT PUSH
1 POP HL ;Der Abstand des
1 POP HL ;An den Anfang die-
1 POKES 8
1 POINT DW 0
1 PLOTed by a USR call to 22DC.
1 PLACE EQU $
1 PARAMETER HOLEN *
1 PAPER DB 7; Window PAPER colour (0-7)
1 Once pressed the screen wil be instantly updated to show the end section of the
1 ORG MEMORY
1 ORG end -
1 ORG 65154
1 ORG 64000
1 OR L ;ist. Falls ja,
1 NZ,PLOT2 ;XA Durchlaeufe.
1 NZ,PLOT1 ;YA Durchlaeufe.
1 NZ,ALTZL ;falls Zeilenende
1 NZ,1C8AH ;folgt, Error C.
1 NUMBERS*,*
1 NUMBERS "A","Z"
1 NOLFT BIT
1 NN = 0 TO 256.
1 NEXT: LD A,(HL)
1 NC,NPLOT ;Punkt 1 im Muster.
1 MEMORY EQU 23872
1 MASK_P EQU 23894; System variable for transparency
1 MANY DB 0
1 MANX DB 0
1 LOOP: LD HL,(POINT)
1 LOOP7: PUSH BC
1 LOOP6: LD (HL),A; Colour the character square
1 LOOP5: PUSH BC
1 LOOP4: XOR A
1 LOOP3: LD (DE),A
1 LOOP2: PUSH BC
1 LOOP1: LD (HL),A
1 LOAD MEMORY
1 LOAD 65154
1 LOAD 64000
1 LISTE:29.5.1991
1 LINES DB 0
1 LINEF DW 0
1 LINE: PUSH BC
1 LEN DB 0
1 LEFT DB 0;Left hand column of window
1 LD SP,(ERRSP)
1 LD IX,PLACE
1 LD HL,ZAHL2
1 LD HL,(ZAHL1)
1 LD HL,(SCADR)
1 LD DE,15360+508
1 LD DE,0FF0AH
1 LD DE,(CHARS)
1 LD (VALUE),A
1 LD (HL),50
1 LD L,(IX+4)
1 LD HL,TEXT
1 LD HL,MODE
1 LD HL,LASTK
1 LD HL,KTAB
1 LD HL,FLAGS2
1 LD HL,DFLAG
1 LD HL,080H
1 LD HL,(PROG) ;HL auf letztes
1 LD HL,(LINEF)
1 LD HL,(23594) ;Pruefen, ob Kanal
1 LD H,(IX+5)
1 LD DE,TEXT+1
1 LD DE,INIT-5
1 LD DE,(PROG)
1 LD DE,(CHANS) ;neuen Kanaldaten-
1 LD DE,(23606)
1 LD D," "
1 LD C,(IX+6)
1 LD BC,TEXT-9
1 LD BC,703
1 LD BC,15
1 LD BC,11 ;tion ueber Laenge
1 LD BC,11 ;Endemarke). Davor
1 LD B,078H
1 LD B,(IX+7)
1 LD B,(IX+21)
1 LD A,H ;10 schon geoeffnet
1 LD A,0DH
1 LD A,(IX+29)
1 LD A,"\"
1 LD A,"?"
1 LD (SEED),HL
1 LD (PROG),HL
1 LD (POS),HL
1 LD (POS),BC
1 LD (LINEF),HL
1 LD (IY-50),B
1 LD (HL),D ;schreiben.
1 LD (HL),C ;des Kanalbereichs
1 LD (HL),C ;(fuer Interface 1
1 LD (HL),C
1 LD (HL),B ;Opus-Betr'system).
1 LD (HL),B ;Betriebssystem).
1 LD (HL),B
1 LD (HL),0EAH
1 LD (HL),0C4H ;#15C4 - ergibt bei
1 LD (HL),016H
1 LD (HL),015H ;dung J.
1 LD (HL),"\"
1 LD (HL),"B" ;B (gleichgueltig).
1 LD (HL)," "
1 LD (23594),HL ;beiden Kanal-10-
1 LAST: RET
1 L,(IY+94) ;XA -> L.
1 KTAB DB 0C3H,07CH,0C5H,05DH ;Liste fuer
1 KEYOK: PUSH AF
1 JR Z,STLLP
1 JR NZ,RTRN
1 JR NZ,PRLP
1 JR NZ,N702
1 JR NC,LP10
1 JR Z,WRITE
1 JR Z,WAITK
1 JR Z,POSOK
1 JR Z,NXPOS
1 JR Z,NOSPZ
1 JR Z,NOCRT
1 JR POSOK
1 JR NZ,TEXT
1 JR NZ,NREM0
1 JR NZ,NOSPZ
1 JR NZ,NOLET
1 JR NZ,NOCR
1 JR NZ,NOCL
1 JR NZ,NOBS
1 JR NZ,NOBLK
1 JR NZ,NGOTO
1 JR NZ,KEYOK
1 JR NZ,EING1
1 JR NC,NOCRT
1 JR NC,EING
1 JR EING2
1 JR EING1
1 JR C,WRITE
1 JR C,WEITR
1 JR C,PRST1
1 JR C,POSOK
1 JR C,NOTOK
1 JR C,CNTRL
1 JR C,BLOCK
1 JP Z,KEND
1 JP START
1 JP Z,OVER
1 IX,(5C0BH)
1 INTERCEPTOR
1 INK DB 0; Window INK colour (0-7)
1 INIT LD A,(TOP); Top of window
1 INC HL ;und WAFADRIVE -
1 INC HL ;schreiben (fuer
1 INC HL ;ende schreiben
1 INC HL ;auch ans Bereichs-
1 INC HL ;Laengeninformation
1 INC HL ;Input Fehlermel-
1 INC HL ;Dahinter Informa-
1 INC HL ;Als Kanalkennung
1 INC HL ;Als Input-Adresse
1 IF #0=2;HL is a special case
1 HL,START-1
1 HL,LEVELB-662
1 HL,BUFFER+659
1 HL,5C92H;=MEMBOT the address of the
1 HL,23705 ;Zahlen lesen und
1 HL,22528-32
1 HL,(UDG) ;Graphikzeichen.
1 HL,(STKBOT) ;address of stack bottom
1 HL,(STKBOT)
1 HL,(NEWPOS)
1 HL,(CHARS) ;ROM-Basisadr. fuer
1 HL,(CHANS)
1 HL,(CHADDR)
1 HL,(AKTPOS)
1 HL,(23700) ;HL <- Adr. des
1 HL,(23698) ;Restlaenge in HL.
1 HAUPTPROGRAMM *
1 H,(IY+95) ;YA -> H.
1 GET2 CALL
1 Four number bases are available, hex, decimal, binary and octal. Conditional
1 FOUND: INC HL
1 FILL 257 BYTE WITH 0FDH
1 FFFF returns to BASIC.
1 FFF3 - FFFE resets the calculators memory area and clears the stack.
1 FFE3 - FFF2 decrements the step count, if this is not zero and there is no
1 FFBC - FFE2 checks to see whether (x,y) is on the screen, if so it is
1 FFB0 - FFBB calculates the plot position (x,y).
1 FF9E - FFAF increments 0 (by changing COS0 and SIN0).
1 FF8B - FF9D increments @ (by changing COS@ and SIN@).
1 FF75 - FF8A sets the initial values of COS@, SIN@, COS0, SIN0 (COS & SIN
1 FF55 - FF74 calculates the size of angular increments A@ and the total
1 FF41 - FF54 calculates the hcf of f and m.
1 FEFA - FF40 get the arguments from the REM statement which must immediately
1 EYERYONE'S A WALLY
1 EXPRESS RAIDER
1 EXPLODING FIST
1 ESKIMO EDDIE
1 EQU TEND2-TEXT2
1 EQU TEND-TEXT
1 EQU $-TEXT
1 ENTRANCE TO HADES
1 ENDURO RACER
1 END ;of FILE
1 EING: LD A,016H
1 DYNAMITE DAN 2
1 DYNAMITE DAN
1 DUN DARACH
1 DUKES OF HAZARD
1 DRAGONTORC
1 DRAGONS LAIR
1 DR. FRANKY
1 DOOMSDAY CASTLE
1 DJNZ WIDTH
1 DJNZ SETLP
1 DJNZ SCROL
1 DJNZ LOOP1
1 DEFMAC ("NUMBERS*,*",NN,NN)
1 DECR: DEC DE; Back off by one character
1 DECATHLON 1
1 DEC HL ;Bereich ;(= #80-
1 DEATHCHASE
1 DEATH STAR
1 DEATH RACER
1 DB COUNT-1
1 DB 9,8,10,8,11,8,12,8
1 DB 9,5,8,5,8,6,8,7,8,8
1 DB 9,3,10,3,11,3,12,3
1 DB 8,15,9,15,10,15,11,15
1 DB 8,13,8,12,8,11,9,10
1 DB 8,0,9,0,10,0,11,0
1 DB 5,21,5,20
1 DB 5,2,5,1,5,0,4,0,3,0
1 DB 4,8,5,7,5,6,4,5,3,5
1 DB 4,31,5,31
1 DB 4,28,5,28,0,29,0,30
1 DB 4,24,5,24,0,25,0,26
1 DB 4,19,5,19,0,20,0,21
1 DB 4,15,5,16,5,17
1 DB 4,10,5,11,5,12,4,13
1 DB 3,13,2,13,1,13,0,13
1 DB 23,8,0,"kcb k k k k k",13
1 DB 23,8,0,"k k klk kjb klk",13
1 DB 23,8,0,"k k klk cik klk",13
1 DB 23,8,0,"k k k k k k k",13
1 DB 23,8,0,"cld h h jld h h"
1 DB 23,8,0,"ab alb ali g g",13
1 DB 23,3,0,"PRESS:"
1 DB 21,25,1,1
1 DB 21,10,1,12
1 DB 2,5,1,5
1 DB 2,25,2,26,5,25,5,26
1 DB 2,1,2,0,1,0,3,3,4,3
1 DB 15,23,1,3
1 DB 13,8,10,6,10,7
1 DB 13,5,12,5,11,5,10,5
1 DB 13,23,6,0,"SPACE :TO PLAY"
1 DB 13,23,13,0,"START-LEVEL:"
1 DB 13,23,10,0,"2 :EDITOR"
1 DB 13,23,10,0,"1 :LOAD/SAVE LEVEL'S"
1 DB 13,2,13,1,13,0
1 DB 13,18,10,16,10,17
1 DB 13,11,12,10
1 DB 12,15,13,15,8,18,9,18
1 DB 12,0,13,0,8,1,8,2
1 DB 11100110B
1 DB 11001110B
1 DB 11,13,12,13,13,12
1 DB 11,0,11,7
1 DB 10,18,11,18,12,18
1 DB 10,10,10,11,10,12
1 DB 1,31,2,30,2,29,3,31
1 DB 1,22,2,22,3,22,4,22
1 DB 080H,0B0H,000H,0DCH,022H ;22DC hexadecimal
1 DB 040H,0B0H,000H,0FFH
1 DB 040H,0B0H,000H,0AFH
1 DB 012H,1,015H,1 ;FLASH 1; OVER 1
1 DB 01100111B
1 DB 0,6,0,7,1,8,2,8,3,8
1 DB 0,28,1,28,2,28,3,28
1 DB 0,24,6,6
1 DB 0,24,1,24,2,24,3,24
1 DB 0,19,1,19,2,19,3,19
1 DB 0,15,1,15,2,15,3,15
1 DB 0,11,19,10
1 DB 0,10,1,10,2,10,3,10
1 DB 0,0,0,1,0,2,1,3,2,2
1 DB "kld k k k k k k k klb kld",13
1 DB "klb k k k k k k k kld klb",13
1 DB "k k k k k k k kcb k k k",13
1 DB "k k k k k k k k k k k k",13
1 DB "cld cld cld cli cld cli h h",13
1 DB "alb alb g g g ab ali alb",13
1 DB "XXXXXXXXXXXXXXXXXXX"
1 DB "XXXXX XXXXX"
1 DB "XXX XXXXXXXXX XXX"
1 DB "EIN TEST 1234"
1 DB "Double BIG letter"
1 DB " XXX XXXXXXXXX XXX "
1 DB " XX XXXXXXXXXXX XX "
1 DB " X X X X "
1 DB " X X "
1 DB " * CONVERSION (P)1990 BY ANDI * "
1 DB " X X X X "
1 DB " X X X X X "
1 DB " XXXXXXXXX "
1 DB 0E2H,07EH,0ACH,07FH
1 DB 0CCH,07BH,0CDH,05CH ;im E-Modus.
1 DB 0C6H,05BH,0CBH,07DH ;die Zeichen
1 DB "SHIFT"
1 DB "GRAPHICS"
1 DB " "
1 DB " "
1 DB get_m8
1 DB get_m10
1 DALEY THOMPSON'S
1 Command Description
1 Change mode
1 CYBER RATS
1 CRITICAL MASS
1 COUNT:=COUNT+1
1 COSMIC CRUISER
1 CONT: LD DE,(LEFT)
1 COLOUR DB 0
1 CODEUMWANDLUNG DER LEERZEICHEN *
1 CHUCKIE EGG 2
1 CHUCKIE EGG
1 CHRS DB 0
1 CHOP: LD HL,(START); Start of text
1 CHLOOP:LD A,(HL); Pick up the character
1 CHECK: LD A,(CHRS)
1 CAVERN FIGHTER
1 CAULDRON 2
1 CANNONBALL
1 CAMELOT WARRIOR
1 CALL UNSTACK
1 CALL TIME1
1 CALL STACK1N
1 CALL NXTLN
1 CALL MKROOM
1 CALL LNADR
1 CALL DELETE
1 CALL CALCL
1 CALL CALCA
1 CALL 0C10H
1 CALL 0556H
1 CALL 01655H
1 CALL STRING
1 CALCL: LD A,C
1 CALCA: LD A,C
1 Bottom of file
1 BUFFER EQU
1 BRAXX BLUFF
1 BRAIN BLOODAXE 26582,0 UL
1 BOUNTY BOB
1 BOULDER DASH 2 28474,X:
1 BOULDER DASH
1 BOULD LD A,(POSX)
1 BOT DB 21;Bottom character line of window
1 BOMBER MAN
1 BOMB SCARE
1 BLANK: LD B,8
1 BLACK HAWK
1 BIT 7,(HL)
1 BIT 6,(HL)
1 BIT 5,(HL) ;Falls kein Blank
1 BIT 4,(HL)
1 BIT 3,(HL)
1 BIT 1,(HL)
1 BIT 0,(IY+1)
1 BIRDS AND BEES
1 BC,(23702) ;Y -> B, X -> C.
1 BAZOOKA BILL
1 BATTLE OF THE
1 BACK SUCHT DEN WEG ZURUECK VOM ZIELPUNKT ZUM STARTPUNKT *
1 B,19;ZEILEN
1 B,12;REIHEN
1 All other commands are inactive while in CHANGE (and INSERT) mode with the
1 Again find
1 ASTRO-BLASTER
1 ARC OF YESOD
1 ANDROID TWO
1 ANDROID ONE
1 AND A ;bereichs zu CHANS
1 AMIDARNEU
1 ALLE ROUTERCODES WIEDER LOESCHEN *
1 ALIEN HIGHWAY
1 AH DIDDUMS
1 ADD HL,DE
1 ADD HL,BC
1 ACTION REFLEX
1 ABU SIMBEL
1 A-nywhere/S-tart
1 A,PAPER ; IST
1 A,BORDER; SONDER
1 A,17 ;DIESER
1 A,11110000B
1 A,(USERWT)
1 A,(USERHY)
1 A,(POSX+1)
1 A,(LOWPOS+1)
1 A,(LOWPOS)
1 A,(HL) ;IN A IST DAS ZEICHEN UNT. D. STEIN
1 A,(HIPOS+1)
1 A,(ANZAHL)
1 A,(AENDER)
1 A,(23704) ;C um XA
1 A,(23703) ;tion entsprechend
1 A general rule to note is that while the cursor is flashing, you can always abort
1 = (HL,IX,IY).
1 <Command C>
1 <Command B>
1 <Command A>
1 <<< SPIROGRAM >>>
1 ;|r(1+ f/m)|
1 ;|f+m| + |r(1+ f/m)|
1 ;zwischen Basic-
1 ;zurueckschreiben.
1 ;zu D noch 64 addiert werden.
1 ;z$ has now been located in the variables area
1 ;y = INT(b+ SIN @ + SIN 0)
1 ;x or value returned by USR
1 ;x = INT(a+ COS @ + COS 0)
1 ;wird mit Blanks
1 ;window, anywhere on the screen
1 ;wie schon frueher
1 ;werden soll. Elf Byte ist jedoch die vorgeschriebene
1 ;werden ignoriert.
1 ;was einer Addition von 2048 zu DE pro Drittel entspricht. Weil der
1 ;vorzugebenden Sonderfaelle sind zu beruecksichtigen.
1 ;vorbesetzt.
1 ;urspruenglichen
1 ;unless 'break' i.e. caps shift
1 ;und ausdrucken.
1 ;und Bit 5 gesetzt,
1 ;und "AT 0,0"
1 ;um die Laenge des
1 ;uebertraen.
1 ;uebergeben wird.
1 ;top of smaller number s
1 ;to interpret arguments
1 ;to check syntax of arguments
1 ;tieren. Dieser
1 ;tieren. Bei jedem
1 ;the zero remainder
1 ;the top left hand byte of each line of characters
1 ;the remainder
1 ;the quotient
1 ;the one held in DE
1 ;the calclator stack
1 ;the address of the arguments
1 ;stop program and produce
1 ;staben und fuer
1 ;speicher:
1 ;sondern mit fueh-
1 ;so that larger number l is on
1 ;sind die Zeitvari-
1 ;sin A0 -> mem 14
1 ;set_m-mem C0,C1,.. & get_m-mem E0,E1,..
1 ;set_m (NZ) if numeric expression
1 ;set_m (NZ) if interpreting
1 ;set t (number of steps in complete pattern
1 ;set SIN @
1 ;set SIN 0
1 ;set COS @
1 ;set COS 0
1 ;separater before first argument
1 ;sen wird.
1 ;selbst ueberschr.
1 ;schreiben, damit
1 ;schreiben & druck.
1 ;schliessend auf die
1 ;right- oder Gra-
1 ;return to BASIC
1 ;return C (carry flag set)
1 ;restore (CH-ADD) to first argument
1 ;reset_m bit 7 of (FLAGS)
1 ;reset_m (Z) if syntax checking
1 ;reset_m (Z) if string expression
1 ;rendem Blank aus-
1 ;rechnen, ab der
1 ;raum einfuegen.
1 ;quotient on top of stack
1 ;put six dummy values at the
1 ;positions 6,7,8,9,A respectively
1 ;phikzeichen vorl.
1 ;of Source...
1 ;number of steps in one circuit
1 ;number of arguments
1 ;not leave gaps in the pattern
1 ;nicht veraendert
1 ;ne verlassen, ohne
1 ;naechsten Z'anfang.
1 ;naechsten X-Y-
1 ;naechste Character-
1 ;muss Bit 0 in FLAGS
1 ;modulo 60 gezaehlt.
1 ;mit Hilfe einer
1 ;m. fuehrender Null,
1 ;loeschen;
1 ;loeschen.
1 ;literals to be used)
1 ;liegt, auch Bit 5
1 ;lesen und in den
1 ;largest angular increment which will
1 ;laere Drucken.
1 ;l-mod-s returns remainder and
1 ;kunde zu erhoehen.
1 ;ken eines Textes
1 ;keit, die OPEN-
1 ;keine spez. Ausg.
1 ;jump to first, there is no
1 ;jump to PLOTD
1 ;jump to NPLOT if y>175dec
1 ;jump to NPLOT if y<0
1 ;jump to NPLOT if x>255dec
1 ;jump to NPLOT if x<0
1 ;jump to ERROR if string exp.
1 ;jump to CONT if t>0
1 ;jump to BEGIN if arguments have
1 ;jump to ARGS, add arguments
1 ;jump if remainder 0 to UCLID
1 ;is it a "REM"
1 ;is it a ":"
1 ;is it a ","
1 ;instead of MEMBOT (enables the
1 ;inhalte wieder
1 ;in den Speicher
1 ;in Speicher druck.
1 ;ignor. (INK etc.).
1 ;if |f|<|m| to ORDRD
1 ;if more to do jump to next
1 ;if PLOT routine was executed
1 ;hinter das zuletzt
1 ;hier mit der ein-
1 ;hat, muss Bit 4 von
1 ;gleich Ruecksprung.
1 ;ggf. E-Modus-Zei-
1 ;get r r -> COS 0 -> mem 11
1 ;gesetzt werden, um
1 ;geschr. Zeichen.
1 ;gedrueckt, an den
1 ;gedrueckt, Ende
1 ;gedrueckt ist. Code
1 ;gebauten Moeglich-
1 ;fuer diese Stelle steht.
1 ;fuer Zeichen (Code im Akku) an die Routine LST10
1 ;fuehrende Blank
1 ;for the calculator to use
1 ;fang gedruckt
1 ;falls gerade THEN
1 ;falls gerade Blank
1 ;f+m -> COS @ -> mem_0D
1 ;erzeugen;
1 ;ersten beiden der elf Byte von Bedeutung, denn
1 ;error report
1 ;erhoehen.
1 ;erhalten.
1 ;er auf diesen neuen Eintrag zeigt (genauer: als
1 ;ein und die Routi-
1 ;ein Interface I. oder WAFADRIVE angeschlossen ist.
1 ;ein Blank handelt,
1 ;drei unteren Bit der Zeile beruecksichtigt. Fuer das hoeherwertige
1 ;drei RST #10:
1 ;doppelte Blanks
1 ;doppelt grosse Schrift:
1 ;diese enthalten die Adresse der Ausgaberoutine,
1 ;diert (Rekursion).
1 ;die naechste Zeile.
1 ;die bei LIST #10 oder PRINT #10 angesprungen
1 ;die Uhr "weiter-
1 ;die Bildpunkt-
1 ;der Text beim
1 ;der Taste in A.
1 ;der Fenster:
1 ;den Akku bringen
1 ;dem folgenden Byte
1 ;dem Textspeicher
1 ;decrement argument count,
1 ;dass jeder 702te
1 ;cos A0 -> mem 13
1 ;continue if no break
1 ;codierung des
1 ;chen aus der Liste
1 ;chen Kleinbuchst.
1 ;call the expression evaluator
1 ;calculators memory (usually MEMBOT)
1 ;buchst. Grossbuch-
1 ;bringen und den
1 ;bottom of the calculator stack
1 ;bis eine Taste
1 ;bis 9 jedoch nicht
1 ;besteht, dass die
1 ;beschrieben, aber
1 ;been stacked by expr. evaluator
1 ;bearbeiten.
1 ;ausgewert. werden.
1 ;ausgegeben.
1 ;aufzurufen.
1 ;angesehen.
1 ;and space keys being pressed
1 ;akzeptiert wird.
1 ;address of the bottom of
1 ;address of the area used for
1 ;address of arguments
1 ;ablen um eine Se-
1 ;a,b,f,m,r to the stack in
1 ;Zu dr. Char. in D.
1 ;Zeilennummer 0
1 ;Zeileninhalts zu
1 ;Zeileninhalt aus
1 ;Zeilenadr. in HL.
1 ;Zeile sind innerhalb eines Drittels von 0 bis 255 durchnumeriert.
1 ;Zeile D (0 bis 23) und der Spalte E (0 bis 31) die zugehoerige
1 ;Zeile 0 suchen,
1 ;Zeile 0 loeschen.
1 ;Zeichens abgelegt
1 ;Zeichen machen.
1 ;Zehnerstelle der
1 ;Zahlen auf Stack.
1 ;Zahlen SETS:
1 ;Zahl in den Akku
1 ;Zahl berechnen, in
1 ;Zaehlung ausgelas-
1 ;Zaehler dient dazu,
1 ;Zaehler 2 dekremen-
1 ;Zaehler 1 dekremen-
1 ;ZUGRICHTUNG 'VON' HOLEN
1 ;ZUGRICHTUNG 'NACH' ...
1 ;ZIELPUNKT GEFUNDEN ?
1 ;ZIELPUNKT GEFUNDEN -> ENDE
1 ;Z FLAG SETZEN
1 ;XMAX+YMAX UM 1 DEC.
1 ;X-Y-Pos.-> HL .
1 ;X-Y-Pos. auf Null.
1 ;X,Y DATEN "BOULDER DASH"
1 ;Wirkung dieser
1 ;WIEVIELE ZEILEN?:
1 ;WIEVIELE SPALTEN?
1 ;Vor den Text die
1 ;Variablenbereich:
1 ;VERGLEICH MIT GEDRUECKTER TASTE
1 ;VARIABLEN:
1 ;VARIABEL FUER BOULD
1 ;Ursprung beliebig
1 ;USR-Call to PLOT routine
1 ;URSP. ZUM WEGSCHALTEN DER
1 ;UP & DOWN - ENTER=EXIT
1 ;UNTERER RAND ?
1 ;UND IN DIE MATRIX SCHREIBEN
1 ;UMWAND ermittelt Bildschirm-
1 ;UEBER LDIR AUS DEM ROM-INHALT
1 ;Top line now coloured in
1 ;Tonlaenge.
1 ;Tonfrequenz.
1 ;Token zu vermeiden.
1 ;Token vorliegt.
1 ;The table contains the screen addresses for
1 ;The first 8 of these addresses are poked from BASIC
1 ;Textspeicher ein
1 ;Textspeicher
1 ;Textausgaberoutine aus HC Nr.7 (Juli 1986)
1 ;Testen, ob Copy-
1 ;Testen, ob Basic-
1 ;TITEL ZU "BOULDER DASH"
1 ;THEN gehandelt
1 ;T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T;*******************************
1 ;Systemvariablen
1 ;Sys-Var. "SEED" inkrementieren. Auch die vom Benutzer
1 ;Sys-Var. "CHANS" angibt, wird ein neuer, elf
1 ;Stundenzahl von 0
1 ;Stunde modulo 24
1 ;Strom 10 (Adresse 23594) wird so umgesetzt, dass
1 ;Stattdessen "?"
1 ;Start der Routine:
1 ;Standard Z80 Befehle:
1 ;Speicherplatz im
1 ;Sonst zunaechst "\"
1 ;Solange warten,
1 ;Sekunden und
1 ;Sekunden aus der
1 ;Scrolling finished. Now erase last character line
1 ;Schliesslich noch
1 ;Schliesslich den
1 ;STRMS geschrieben.
1 ;STIMMT ROUTERCODE?
1 ;STIMMT 2. STARTKOORDINATE?
1 ;STIMMT 1. STARTKOORDINATE?
1 ;STEUER-Routine
1 ;STARTLEVEL
1 ;STACKOVERFLOW SETZEN
1 ;SPRUNG FALLS ABBRUCH (CARRY=1)
1 ;SPRUNG FALLS ABBRUCH
1 ;SIN(@-A@) = SIN @ cos A@ + COS @ sin A@
1 ;SIN(0+A0) = SIN 0 cos A0 + COS 0 sin A0
1 ;SIN @ cos A@
1 ;SIN 0 sin A0
1 ;SIN 0 cos A0
1 ;SHIFT FUER ZEILE:
1 ;SCROLL-PGM AUS ZXMC S.87:
1 ;SCROLL SCREEN 1 PIX NACH LINKS:
1 ;SCROLL SCREEN 1 PIX NACH LINKS
1 ;SCROLL EINER ZEILE UM 1 PIXEL
1 ;SCHRIFT PRINTEN:
1 ;SCHON GANZ OBEN?
1 ;Routine zum Druk-
1 ;Routine to word-wrap z$ within defined window
1 ;Routine to set attributes in the window
1 ;Routine to print a line of text
1 ;Routine to clear the window using repeated scrolls
1 ;Routine sich
1 ;Routine im ROM
1 ;Routine for printing and scrolling text in any
1 ;Register duerfen
1 ;Register SETS:
1 ;Raum fuer Flags.
1 ;ROUTINE ZEICHENAUSGABE
1 ;ROUTERCODES LOESCHEN
1 ;ROUTERCODE INITIALISIEREN
1 ;ROUTERCODE ERNIEDRIGEN
1 ;ROUTERCODE ERHOEHEN
1 ;ROUTERCODE EINTRAGEN
1 ;ROUTERCODE = 4 ?
1 ;ROUTERCODE = 0?
1 ;ROM-Routine expan-
1 ;ROM-ROUTINEN:
1 ;RICHTUNG UNTEN,UNTEN
1 ;RICHTUNG OBEN MERKEN
1 ;RICHTIGER ZUG?
1 ;REM-ZEILE?
1 ;RELATIVE ADRESSE DES PUNKTES BERECHNEN
1 ;RELATIVADRESSE DES PUNKTS BERECHNEN
1 ;REASSEMBLY "WINDOW"
1 ;RAM schreiben und die als Pointer verwendete
1 ;Pseudo Opcode definitionen:
1 ;Prune the remaining text to fit the window
1 ;Pruefen, ob Gefahr
1 ;Pruefen, ob E-Modus
1 ;Programm einfuegen.
1 ;Print-Routine:
1 ;Position.
1 ;Position zurueck.
1 ;Position im Bild.
1 ;Pointer weiter.
1 ;PUNKT VON FIFO1 HOLEN
1 ;PUNKT UNTERSUCHEN
1 ;PUNKT NOCH FREI
1 ;PUNKT GEFUNDEN
1 ;PROGRAMM-DATEN:
1 ;PROG merken.
1 ;PRINT auszufuehren.
1 ;PRINT 6 NULLEN AN POS. 22,0...
1 ;PRINT #10 dazu, dass der auszugebende Text Zeichen
1 ;POSITION VORBELEGEN:
1 ;POINTER AUF PARAMETERLISTE
1 ;PLOT ROUTINE AUS CK 4-5/87
1 ;PASSENDEN CODE FUER BAHNSTUECK SUCHEN
1 ;Offset zu (CHANS)-1). Eigentlich sind nur die
1 ;Now move 8 pixel lines up the screen by 8 pixels
1 ;Naechsten Befehl
1 ;Naechste Zahl
1 ;Naechste Position.
1 ;Nach Zeile 21
1 ;NIXTUN,WENN UNTERE REIHE
1 ;NEUES ZEICHEN
1 ;NEUES ENDE VON FIFO1 SETZEN
1 ;NEIN -> NAECHSTEN PUNKT ABARBEITEN
1 ;NACH UNTEN GEHEN
1 ;NACH OBEN GEHEN
1 ;NACH LINKS
1 ;Minuten werden
1 ;Mindestlaenge. Von nun an fuehren LIST #10 oder
1 ;Mindestlaenge fuer eine Kanalbeschreibung, wenn
1 ;Main scrolling routine
1 ;MIT 4 MULTIPLIZIEREN UND MERKEN
1 ;MATRIX HOLEN UND
1 ;Laenge der neuen
1 ;Laenge auf Stack,
1 ;LISTen ab Bildan-
1 ;LETZTE PUNKTADRESSE HOLEN
1 ;Kontrollzeichen.
1 ;Kontrollcode, der
1 ;Konstanten:
1 ;Kanal = Screen.
1 ;KOORDINATEN RESTAURIEREN...
1 ;KOORDINATEN FUER NACHBR RESTAURIEREN
1 ;KOORDINATEN FUER BACK RESTAURIEREN
1 ;KONSTANTER TON:
1 ;KEIN PUNKT MIT ROUTECODE GEFUNDEN...
1 ;KEIN NEUER EINTRAG IN FIFO2 ?
1 ;KANALEINTRAEGE & UEBER-
1 ;JETZT DIE ABSOLUTE ADRESSE
1 ;JA -> WEG ZURUECK SUCHEN
1 ;JA -> SPRUNG, SONST NAECHSTE RICHTUNG
1 ;JA -> ROUTERCODE WIEDER AUF 3 SETZEN
1 ;JA -> NAECHSTE RICHTUNG
1 ;JA -> ANDERE RICHTUNG
1 ;JA -> ABBRUCH
1 ;Interrupt wieder
1 ;Interrupt fuer die
1 ;Interrupt aus und
1 ;Initialisation routine
1 ;Inh. wiederherst.
1 ;Im Kanalbeschreibungsbereich, dessen Anfang die
1 ;IX ODER IY VON STACK HOLEN
1 ;INTERFACE 1 VARIABELN & ALLER
1 ;INT ( -2pi(|f+m| + |r(1+ f/m)|))
1 ;INNERHALB E. VORGEGEB. FENSTERS
1 ;Hier wird das
1 ;Hier steen die
1 ;Hier ist das regu-
1 ;Hier Uebergang in
1 ;HL=POS.IM AFILE
1 ;HL zeigt an-
1 ;HL points to the character at start of next line
1 ;HL points to attributes of top line of window
1 ;HL points to attributes of top left of window
1 ;HL now points to the screen address 8 pixels below
1 ;HL Textende-Adr.
1 ;HL ENTHAELT ANFANGSADR.
1 ;HEX-ADRESSE. SCROLLFENSTER
1 ;HERSTELLEN DES ALTEN ZUSTANDS
1 ;Ggf. Fehlermeldung
1 ;GLEICH 2. ZIELKOORDINATE?
1 ;GLEICH 1. ZIELKOORDINATE?
1 ;Fuer die OPUS-Discovery ist uebrigens sieben die
1 ;Fuer E ist also nur entscheidend, die wievielte Zeile innerhalb des
1 ;Frei positionierbare
1 ;Figur-Steuerung (CK 12/86)
1 ;Falls n. vorhand.
1 ;Falls kein spez.
1 ;Falls ja, wird er
1 ;Falls SS + Q
1 ;Falls LET vor-
1 ;Falls GRAPHICS
1 ;Falls GO TO vor-
1 ;Falls GO SUB vor-
1 ;Falls ENTER-Taste
1 ;Falls Code < 20H,
1 ;Falls CAPS LOCK
1 ;Falls Bit 1 ges.,
1 ;Falls "<-", eine
1 ;Falls "->", nur
1 ;FUER ALLE PUNKTE DER MATRIX...
1 ;FUER ALLE MATRIXPUNKTE...
1 ;FUELLEN DES D-FILES MIT 255
1 ;FLUESSIGER LAENGEN AUS DEM
1 ;FLAG GESETZT?
1 ;FIFO2 ZEIGER SETZEN
1 ;FIFO2 POINTER ERHOEHEN
1 ;FIFO2 POINTER AUF STKNEU STELLEN
1 ;FIFO2 PINTER = STKMOD?
1 ;FIFO1 ZEIGER SETZEN
1 ;FIFO1 SCHON ABGEARBEITET ?
1 ;FIFO1 POINTER=STKMOD ?
1 ;FIFO1 POINTER ERHOEHEN
1 ;FIFO1 POINTER AUF STKNEU SETZEN
1 ;FIFO1 POINTER = FIFO2 POINTER?
1 ;FENSTER FAERBEN:
1 ;FEHLERCODE FUER 'PUNKT NICHT GEFUNDEN'
1 ;Ein Blank nicht
1 ;ENDE VON FIFO1 SETZEN
1 ;ENDE REM-ZEILE?
1 ;EINTRAGEN:
1 ;EINGABEFELD GELB FAERBEN:
1 ;Drittels und welche Spalte vorliegt. Deswegen werden fuer E nur die
1 ;Doppelpunkt
1 ;Diese Routine muss im Grunde nur Byte fuer Byte ins
1 ;Diese Laengenangabe
1 ;Die zu schreibende
1 ;Die niederwertigen Byte E der Adressen der oberen Byte-Linien jeder
1 ;Die acht Bytes
1 ;Die Routine TRANS berechnet fuer eine Bildschirmstelle aus der
1 ;Die Routine INIT bereitet das LIST-Programm vor.
1 ;Die Flags muessen
1 ;Die Einerstelle
1 ;Die Adresse be-
1 ;Die Adr. merken.
1 ;Der Textspeicher
1 ;Der Bildschrimspeicher gliedert sich in 3 Teile zu jeweils 8 Zeilen.
1 ;Den alten PROG-
1 ;Davor kein ":".
1 ;Davon 5 abziehen,
1 ;Das UP produziert die Rahmen
1 ;Dann fuer Graphik-
1 ;DIE NACHBARFELDER ABSUCHEN
1 ;DFLAG gesetzt
1 ;DES LEVEL'S MIT NR. IN
1 ;DASSELBE, ABER RICHTUNG UNTEN
1 ;DASSELBE, ABER RICHTUNG RECHTS
1 ;DASSELBE, ABER RICHTUNG LINKS
1 ;DASSELBE MIT DER 2. KOORDINATE
1 ;DASSELBE IN RICHTUNG RECHTS
1 ;DASSELBE IN RICHTUNG OBEN
1 ;DASSELBE IN RICHTUNG LINKS
1 ;DAS TUPEL <'VON','NACH'> BILDEN
1 ;DANN WIEDER AUF 1 SETZEN
1 ;Codes fuer "REM"
1 ;Check length of remaining text
1 ;Char. wieder in A.
1 ;CURSOR AUSGEBEN + ZEICHEN
1 ;CR-Zeichen anfueg.
1 ;CR ist der einzige
1 ;COS(@+A@) = COS @ cos A@ - SIN @ sin A@
1 ;COS(0+A0) = COS 0 cos A0 - SIN 0 sin A0
1 ;COS @ cos A@
1 ;COS 0 sin A0
1 ;COS 0 cos A0
1 ;CODE LADEN
1 ;CARRY LOESCHEN, DA NICHT ABBRUCH
1 ;C=SPALTENZAHL
1 ;Byte langer Eintrag erzeugt. Der Pointer fuer
1 ;Byte D der Bildschirmadresse werden die unteren drei Bit ausgeblendet,
1 ;Blockgraphikzei-
1 ;Blinkender Cursor
1 ;Blank-Unterdrueck.
1 ;Blank drucken.
1 ;Bit 6 setzen.
1 ;Bit 6 gesetzt ist.
1 ;Bit 5 setzen zur
1 ;Bit 3 in FLAGS2
1 ;Bit 2 von MODE:=0.
1 ;Bit 1 in MODE
1 ;Bildspeicheradr.
1 ;Bildspeicher
1 ;Bildschirmspeicher bei 16384 (= 64*256) beginnt, muss
1 ;Bildschirmadresse.
1 ;Bildschirm als
1 ;Bild clearen.
1 ;Berechnung der
1 ;Begin by looking for z$ in variables area
1 ;Bedingungs SETS:
1 ;Basic-Zeile in BC.
1 ;BLANKS DURCH CODE(156) ERSETZEN
1 ;BINAERLISTING MIT FUEHRENDER
1 ;BILDSCHIRMSTEUERUNG
1 ;BILDPUNKTZAEHLER:
1 ;BERECHNEN DER NAECHSTEN ZEILE
1 ;BEI GLEICHEIT Z FLAG = 0
1 ;BASISADRESSE DER
1 ;BASIC SYSTEM.
1 ;B=ZEILENZAHL
1 ;Ausgabeformat.
1 ;Aus Ziffer ASCII-
1 ;Auch hier wird der
1 ;Anzahl der 50stel
1 ;Anweisungs SETS:
1 ;Andere Codes nebst
1 ;Andere Codes > 0A4H
1 ;An den Text im
1 ;Alten Inhalt von
1 ;Alten Bildinhalt
1 ;Alle Register-
1 ;Aktueller Ausgabe-
1 ;Adresse im Text-
1 ;Adresse im Bildschirmspeicher an der das erste (obere) Byte
1 ;Adresse = TEXT +
1 ;Adresse -> DE .
1 ;Adr. in HL.
1 ;Adr. der zu schr.
1 ;Adr. auf Stack, in
1 ;Address of start of screen line now in DE
1 ;Address of left hand side of window now in DE
1 ;AUFRUF MIT DER STARTADR. IN HL
1 ;ASCII-Zeichen in
1 ;ANSONSTEN WEITERSUCHEN
1 ;ANPASSUNGSROUTINE
1 ;ANFANG DER PUNKTLISTE HOLEN
1 ;AKTUELLE PUNKTADRESSE ABLEGEN
1 ;ADDR ermittelt Bildschirm-
1 ;ABSPEICHERN
1 ;ABSOLUTADRESSE BERECHNEN
1 ;ABFRAGEN UND PLOTTEN
1 ;AB WELCHER POS?
1 ;= address of PLOT x,y routine
1 ;50sten Interrupt
1 ;4 - Out of memory.
1 ;32 * Y + X .
1 ;3 Zahlen insges.
1 ;255 decimal
1 ;2. ZIELPUNKTKOORDINATE HOLEN
1 ;175 decimal
1 ;1.ZEICHEN;FLAG SETZEN
1 ;1. ZIELPUNKTKOORDINATE HOLEN
1 ;1. KOORDINATE VON STARTPUNKT...
1 ;1) 8 Bit LOAD Befehle:
1 ;0 -> SIN @ -> mem_CE
1 ;...WIRD NAECHSTE ZUGRICHTUNG 'VON'
1 ;... UND IN FIFO2 EINTRAGEN
1 ;... IN FIFO1 UND ...
1 ;... HIPOS ABLEGEN
1 ;... FALLS PUNKT EIN ROUTERCODE...
1 ;... FALLS PUNKT = ASCII LEERZEICHEN...
1 ;... DANN MIT LEERZEICHEN UEBERSCHREIBEN
1 ;... DANN DURCH LEERZEICHEN ERSETZEN
1 ;... ALSO NACH LOETPUNKT SUCHEN
1 ;-Zeichen noetig und
1 ;-2pi/INT( -2pi(|f+m| + |r(1+ f/m)|))
1 ;---INT(-2pi(|f+m| + |r(1+ f/m)|))
1 ;* NACHBARFELDER UEBERPRUEFEN *
1 ;(schreibt Figur an akt. Pos.)
1 ;(SEED) zeigt immer
1 ;(Abfrage d. Cursortasten +
1 ;"ueberspringen".
1 ;"Torus-Spirale"
1 ;"SHIFT" wieder
1 ;"GRAPHICS" wieder
1 ;"Funktionstasten"
1 ; setzen der Position)
1 ; r(1+ f/m)
1 ; calculators normal memory
1 ; aus HC 7 (Juli 1986)
1 ; Z80 MACRO DEFINITIONEN:
1 ; WEITER 255*" " (32).
1 ; Umwandlungsprogramm BASIC >> ASCII
1 ; UPDATE-EINGABE
1 ; UP: PRINT NUMBER IN A>HEX:
1 ; UP: PRINT NUMBER IN A; BINARY
1 ; UP: PRINT NUMBER IN A;
1 ; UP: PRINT NUMBER IN A WITH
1 ; UP: PRINT A>>BINARY
1 ; Swop between cursor and character under
1 ; Set up cursor for blink.
1 ; Scan system keyDEFSET _SII
1 ; Scan keyb
1 ; SORTIEREN ALPHABETISCH
1 ; SELEKTIEREN FUER
1 ; Return, already set.
1 ; Put out cursor.
1 ; PROGRAMMROUTINEN
1 ; PRINT AT Y,X;
1 ; PLATZ FUER ANZAHL*3 BYTE
1 ; Other character attribute
1 ; One line of characters has now been transferred
1 ; NUR VON SORTIERTER DISK-
1 ; NEUE EINTRAEGE EINGEBEN
1 ; Move on to next set of limits.
1 ; MEMORY-BLOCK SCHREIBEN
1 ; MEMORY-BLOCK EINLESEN
1 ; Listing aus HC 1/85
1 ; LEEREM ODER GELOESCHTEM EINTR.
1 ; JE 2 BYTE X,Y ANGABEN UND
1 ; Interrupt-gesteuerte Uhr
1 ; Get screen character.
1 ; Get keypress.
1 ; EINTRAG : 256 BYTE
1 ; EINTRAEGE LOESCHEN
1 ; EIN LEERER EINTRAG ENTHAELT
1 ; DEN SCORE MIT NULLEN BELEGEN:
1 ; DATEN...
1 ; DATEN-DISK FORMATIEREN
1 ; Cursor on screen.
1 ; Cursor attribute
1 ; BYTE 1 ENTHAELT 255 BEI
1 ; AUSGABE GLEICHER EINTRAEGE
1 ; AUFLISTEN (AB NR.)
1 ; 9) Rueckspruenge:
1 ; 8) Spruenge & Aufrufe:
1 ; 7) Bitmanipulationsbefehle:
1 ; 6) Rotier & Schiebebefehle:
1 ; 6 NULLEN FUER DIE PUNKTE:
1 ; 5) 16 Bit Arithmetikbefehle:
1 ; 4) Allgemeine Arithmetik
1 ; 3) 8 Bit Arithmetik Befehle:
1 ; 2) 16 Bit LOAD Befehle:
1 ; 10) Input/Output:
1 ; 1 BYTE FUER 8 STATUSBITS.
1 ; -LOESCHEN (NR.OD.LIST)
1 ; -EQUALITIE-SUCHE
1 ; (VOM ANFANG BIS Z. 1.SPACE
1 ; (0 IN SORTIERT-VAR.)
1 ; ODER NACH SUCHWORT)
1 ; = INT(b+ (f+m) sin @ + r sin 0)
1 ; = INT(a+ (f+m) cos @ + r cos 0)
1 ; mem_16
1 ; mem_15
1 ; A0 = (1+ f/m)A@
1 ; 20 VOLLE SPEICHER MIT DATEN
1 ; & CPU-Kontrollbefehle:
1 ; WITH NO SIDE-EFFECTS.
1 ; SIDE-EFFECTS.
1 ; NO SIDE-EFFECTS.
1 ; HEXADECIMAL WITH NO
1 ; TRANSFORMATION
1 ; TEXTAUSGABE
1 ; -2pi(|f+m| + |r(1+ f/m)|)
1 ; ZWILLINGSZEICHEN:
1 ; 4 = SORTIERT (255)
1 ; * * *
1 8m* |###",|!
1 8m* |###",|
1 8.*Ky++r+s+"Ky
1 64590,60 UL
1 64328,0 UE
1 6,(IY+001H)
1 58294,0 UL
1 56904,0 UL
1 53987,0 UL
1 53929,0 UL
1 53897,0 UL
1 52974,0 UL
1 52765,201 UL
1 51803,0 UL
1 51795,0 UL
1 51736,0 UL
1 50966,0 UL
1 50955,255 UL
1 50904,255 KG
1 50808,201 US
1 50783,X AL
1 50772,0 UL
1 49984,0 UL
1 49745,195 XX
1 49530,X AL
1 48093,201 UZ
1 47757,X XX
1 47340,0 US
1 45982,0 UL
1 45295,195 KG
1 45121,X LN
1 44845,X AL
1 44075,195 US
1 42837,0 UL
1 42593,255 UZ
1 42592,255:
1 41931,0 UL
1 40060,0 UL
1 39412,201 UL
1 38860,0 UE
1 38540,X AL
1 38286,62 UL
1 37230,0 AL
1 36610,0 UL
1 36519,0 UL
1 35853,0 UL
1 35453,0 UL
1 34695,183 UL
1 34562,0 UL
1 34025,0 UL
1 33702,0 UL
1 33127,X LN
1 32851,X AL
1 32807,X AL
1 31684,0 UL
1 31601,X AL
1 31008,52 UL
1 27898,195 UZ
1 27885,0 UL
1 27422,0 UL
1 25776,0 UL
1 25449,115 UL
1 24786,0 UL
1 24080,184 UL
1 24019,146 UL
1 23879,227 UE
1 23731,255 UL
1 23730,255:
1 23296,12 UL
1 229BH ;= HEFT
1 22,0,0,"Not programmed..."
1 1CADH ; HAPPY
1 1C79H ;X & Y auf Kal
1 16.11.1994 LETZTE REVISION.
1 16 ; TEIL
1 16 ; AUS
1 10 ;BREITE
1 0rem
1 0print
1 0D4DH ;=
1 0-REM-Routine
1 0,0,0,0,0,0
1 0 -> SIN 0 -> mem 12
1 .M.Schramm; Freiligrathstr. 5 2300 Kiel 1
1 -INFINITE-
1 *pyq#"py:sy
1 *Z 49.41/39.41/56.57
1 *Z 37.49/42.20
1 *T ZURUECK IN DIE ZUKUNFT
1 *T YANKEES RAUS
1 *T WRECKIN' CREW
1 *T WISH YOU WERE HERE
1 *T WALTZ DARLING
1 *T WAKEY WAKEY WITH THE TOY DOLLS
1 *T VOLLE KELLE LIVE
1 *T VELVETEEN
1 *T UNTER FALSCHER FLAGGE
1 *T UNGARISCHE RHAPSODIE
1 *T ULTRA RARE TRACKS VOL.4
1 *T ULTRA RARE TRACKS VOL.3
1 *T ULTRA RARE TRACKS VOL.2
1 *T TWENTY TWO TUNES LIVE FROM TOKYO
1 *T TRUE COLOURS
1 *T TOO TOUGH TO DIE
1 *T THE WILD ONE - THE GREATEST HITS
1 *T THE WALL
1 *T THE SUZI QUATRO STORY
1 *T THE SINGLES ALBUM
1 *T THE SINGLES 1981-1983
1 *T THE PEEL SESSIONS ALBUM
1 *T THE PEEL SESSIONS
1 *T THE ORIGINAL PISTOLS LIVE
1 *T THE MUTANT MONKEY AND THE SURFERS FROM ZORCH
1 *T THE MINI ALBUM
1 *T THE METEORS LIVE
1 *T THE KINK KONTROVERSY
1 *T THE IDIOT
1 *T THE GREAT ROCK'N ROLL SWINDLE
1 *T THE FOUR SEASONS
1 *T THE DARK SIDE OF THE MOON
1 *T THE CONCERT IN CENTRAL PARK
1 *T THE BEST OF STATUS QUO
1 *T THE BEST OF & MORE..
1 *T THE BEST OF
1 *T THE BEATLES (WHITE ALBUM)
1 *T TEENAGERS FROM OUTHER SPACE
1 *T TANZ DER ADEPTEN
1 *T TALES OF MYSTERY AND IMAGINATION
1 *T SYMPHONY #9
1 *T SYMPHONY #6 "PATHETIQUE"
1 *T SUZI QUATRO
1 *T STONES IN THE PARK
1 *T STONED AGAIN - A TRIBUTE TO THE STONES
1 *T STICKY FINGERS
1 *T STARKE ZEITEN
1 *T STAMPEDE/MONKEY'S BREATH
1 *T SPIEL MIR DAS LIED VOM TOD
1 *T SPARE PARTS
1 *T SOL 12/F.E.D.I.A
1 *T SMETANA:DIE MOLDAU/LISZT:LES PRELUDES
1 *T SMASH HITS OF THE 70'S
1 *T SLIME 1
1 *T SID SINGS
1 *T SID & NANCY-LOVE KILLS
1 *T SHE'S SO UNUSUAL
1 *T SGT. PEPPER'S LONELY HEARTS CLUB BAND
1 *T SEWERTIME BLUES/DONT'T TOUCH THE BANG BANG FRUIT
1 *T SERENADE K375+K388
1 *T SECOND COMING
1 *T SCHMUTZIGE ZEITEN
1 *T SANDINISTA!
1 *T SAN FRANCISCO 1966/67
1 *T ROCKBIRD
1 *T ROCKABILLY PSYCHOSIS & THE GARAGE DISEASE
1 *T ROCK ISLAND
1 *T ROCK HARD
1 *T ROCK 'TIL YA DROP
1 *T ROCK & ROLL CLASSICS VOL.1+2
1 *T RIGOLETTO
1 *T REVOLVER
1 *T RECITAL
1 *T RAMONESMANIA
1 *T PUNK-A WORLD HISTORY VOL.5+6
1 *T PUNK-A WORLD HISTORY VOL.3+4
1 *T PUNK & DISORDERLY
1 *T PUMP AB DAS BIER
1 *T PSYCHONAUT
1 *T PROSTITUTE
1 *T POP ART
1 *T PLEASE RELEASE ME
1 *T PLASTIC SURGERY DISASTERS/IN GOD WE TRUST
1 *T PEEPSHOW
1 *T PARANOIA IN DER STRASSENBAHN
1 *T OXYGENE
1 *T OPEL GANG
1 *T ONLY THE METEORS ARE PURE PSYCHOBILLY
1 *T ONCE MORE INTO THE BLEACH
1 *T NOVA AKROPOLA
1 *T NO SLEEP 'TIL HAMMERSMITH
1 *T NINA HAGEN
1 *T NIGHT SONGS
1 *T NEVER MIND THE HOSEN-HERE'S DIE ROTEN ROSEN AUS DUESSELDORF
1 *T NEVER MIND THE BOLLOCKS-HERE'S THE SEX PISTOLS
1 *T NEVER MIND THE BOLLOCKS 1983
1 *T MUSIK FUER VIOLINE
1 *T MUSIC FROM THE TIME OF CHRISTIAN IV.
1 *T MOONLIGHT SERENADE
1 *T MONA LISA
1 *T MIT PFEFFERMINZ BIN ICH DEIN PRINZ
1 *T MISTER HEARTBREAK
1 *T MENSCHEN ZU WASSER
1 *T MATCHBOX
1 *T MASTERPIECES ON PAN-FLUTE
1 *T MAGICAL MYSTERY TOUR
1 *T MACBETH
1 *T LOOK WHAT WE FOUND
1 *T LOLA VERSUS POWERMAN AND THE MONEYGOROUND
1 *T LIVE-JULY '87
1 *T LIVE IN PARIS 1965
1 *T LIVE AT THE STARCLUB 12/1962
1 *T LIVE AT THE ROXY CLUB
1 *T LIVE AT THE MARQUEE
1 *T LIVE & KICKIN'
1 *T LET THERE BE ROCK
1 *T LET IT BE
1 *T LA TRAVIATA
1 *T KOYAANISQUATSI
1 *T KLASSIK & KINO
1 *T KINDA KINKS!
1 *T KEINE MACHT FUER NIEMAND
1 *T IF YOU KNEW SUZI
1 *T I GOT DEM OL' COSMIC BLUES AGAIN MAMA!
1 *T HIFI VISIONEN POP CD 1A
1 *T HARDCORE HOLOCAUST-THE PEEL SESSIONS
1 *T HANS-A-PLAST
1 *T HALLELUJA
1 *T GREATEST HITS
1 *T GLAM ROCK VOL.2
1 *T GET SATISFACTION... IF YOU WANT!
1 *T GEBT DER MEUTE WAS SIE BRAUCHT
1 *T GASLIGHT TAPES
1 *T GARAGE GOODIES VOL.1
1 *T FROM US TO YOU
1 *T FROM THE ORIGINAL MASTER TAPES
1 *T FROM OVER YONDER
1 *T FLOGGING A DEAD HORSE
1 *T FLAMENCO '88
1 *T FIVE NIGHTS IN A JUDO-ARENA
1 *T FESTLICHE BAROCKMUSIK
1 *T EQUINOX
1 *T ENRICO CARUSO
1 *T EIN KLEINES BISSCHEN HORRORSCHAU
1 *T EAT THE RICH
1 *T DURCHBRUCH/GEFUEHL UND HAERTE
1 *T DOG OF TWO HEAD
1 *T DIE ZEIT
1 *T DIE OBOENSONATEN
1 *T DIE LETZTEN
1 *T DIE GOLDENEN ZITRONEN
1 *T DIE AERZTE FRUEHER (82-83)
1 *T DIE AERZTE
1 *T DEUTSCHPUNK-KAMPFLIEDER
1 *T DEUTSCHE PUNKKLASSIKER
1 *T DENON AUDIO TECHNICAL CD
1 *T DEF, DUMB & BLONDE
1 *T DEDICATION '79-'88
1 *T DAVID BOWIE
1 *T DAS WAREN NOCH ZEITEN
1 *T DAS WAR DIE NEUE DEUTSCHE WELLE
1 *T DAS KRIEGEN WIR SCHON HIN
1 *T DAS IST NICHT DIE GANZE WAHRHEIT
1 *T DANDY IN THE UNDERGROUND
1 *T COSMIC THING
1 *T CONQUER AMERICA
1 *T COMPILATION 80-84
1 *T COMPILATION '81-87
1 *T COMPACT SNAP!
1 *T CHANGESBOWIE
1 *T CHAMELEON CHRONICLES VOL.3
1 *T CHAMELEON CHRONICLES VOL.2
1 *T CHAMELEON CHRONICLES VOL.1
1 *T C'EST SI BON
1 *T BRAINTICKET
1 *T BRAIN DRAIN
1 *T BOLERO & SCHEHERAZADE
1 *T BLONDIE'S HITS
1 *T BLACKEST SABBATH 1970-87
1 *T BIS ZUM BITTEREN ENDE
1 *T BEST OF KITARO
1 *T BEST OF BAROQUE
1 *T BEST BEFORE
1 *T BERUEHMTE ORGELWERKE
1 *T BARE FACE CHEEK
1 *T AUFRECHT
1 *T ARMED FORCES
1 *T APOCALYPSE TOUR 1981
1 *T ALLE GEGEN ALLE
1 *T ALL YOU NEED IS THIS!
1 *T AINT'T COMPLAINING
1 *T ABRECHNUNG
1 *T ABRAXAS
1 *T ABBEY ROAD
1 *T A NIGHT TO REMEMBER
1 *T A FISTFUL OF PUSSIES (BLOOD ON THE CATS VOL.4)
1 *T A FAR OUT DISK
1 *T A DATE WITH ELVIS
1 *T A CLOCKWORK ORANGE
1 *T 4 STRING QUINTETTS
1 *T 300.000 BEATLE FANS CAN'T BE WRONG
1 *T 13 HOEHEPUNKTE MIT DEN AERZTEN
1 *T 1.RECORDING OF THE SYMPHONY #10
1 *R UNDERGROUND/BRADSHAW'S SURREY DOCKER'S/DAVE & ANSIL COLLINS/
1 *R TEST SIGNALS FOR BASIC CHECKS,LISTENING TESTS ETC.
1 *R SUZI QUATRO/GARY GLITTER/T-REX/ALICE COOPER/WIZARD/SPARKS/
1 *R SURFADELICS/X-MEN/JAILBIRDS/COMMUTERS/CHANGELINGS/
1 *R SONGS & HARPSICHORD MUSIC
1 *R SLIME/NOTDURFT/DAILY TERROR/TOXOPLASMA/CANAL TERROR/SLUTS
1 *R SHOP ASSISTANTS/PRUDES/DR. PHIBES/DAVE KUSWORTH & BOUNTY HUNTERS/
1 *R SCHUBERT/BEETHOVEN/LISZT/CHOPIN/DEBUSSY
1 *R REMIXES
1 *R QUERSCHNITT IN FRANZOESISCH
1 *R PUNK IN HAMBURG 1977-83
1 *R PLUS 7 BONUS
1 *R PICTURE
1 *R PET SHOP BOYS/TALK TALK/CHINA CRISIS/THOMPSON TWINS/KANO/
1 *R PASTMASTERS
1 *R PANKEHALLEN 21.1.1984
1 *R ODE AN DIE FREIHEIT;25.12.1989
1 *R MUSIK AUS KINOFILMEN
1 *R METEORS/BATMOBILE/FRANTIC FLINTSTONES/GUANA BATZ/MILKSHAKES/
1 *R MAXI PICTURE
1 *R MARTIN HASELBOECK
1 *R MANFREDINI/BACH PACHIBEL/VIVALDI/ALBINONI/HAENDEL/PURCELL
1 *R MALE/ARTLESS/DAILY TERROR/DEUTSCHE TRINKER JUGEND/HASS
1 *R LYDON O'DONNEL/VIBRATORS/SEX PISTOLS/GENERATION X/G.B.H./
1 *R LONDON 2.4.1977
1 *R LIMITED EDITION #167
1 *R JOE STRUMMER/POGUES/STEVE JONES/PRAY FOR RAIN/CIRCLE JERKS/JOHN CALE/GARY OLDMAN
1 *R JOACHIM WITT/STEINWOLKE/HUBERT KAH/
1 *R HAENDEL/PACHIBEL/VIVALDI/BACH
1 *R GESAMTAUFNAME VOL.1
1 *R FEATURING MOTORHEAD
1 *R CELIA CRUZ/RAY BARETTO/DIXIE CUPS/LEE DORSEY/AARON NEVILLE/
1 *R BOB DYLAN & GRATEFUL DEAD
1 *R BEIHEFT
1 *R BASED ON BIZET'S OPERA
1 *R AUSBRUCH/CHAOS Z/INFERNO/IDIOTS/BOSKOPS/MANIACS
1 *R 87-88 SESSIONS
1 *R 5' SINGLE
1 *R 22 SCHELLACK-REMASTERS
1 *R 2 EXEMPLARE
1 *R 1.REGULAR ALBUM
1 *R 1.DAS IST ROCK (MINI-LP)
1 *R +48 PAGE-BOOKLET
1 *R +4 TRACK EP
1 *N 14/13/13
1 *N 14/12/13
1 *N 13/19/14
1 *N 12/12/13
1 *Ky++F+N#{
1 *Iy4*[y6*#"[y:
1 *Iy4*[y6*#"[y
1 *I ZED YAGO
1 *I ZAMFIR,GEORGHE
1 *I VIVIOUS,SID
1 *I VIVALDI
1 *I VINCENT,GENE
1 *I VARIOUS/SAMPLER
1 *I TSCHAIKOWSKY
1 *I TRANSVISION VAMP
1 *I TOY DOLLS
1 *I TOXIC REASONS
1 *I TOTEN HOSEN
1 *I TON STEINE SCHERBEN
1 *I STATUS QUO
1 *I SOUNDTRACKS
1 *I SIOUXSIE & THE BANSHEES
1 *I SIMON & GARFUNKEL
1 *I SEX PISTOLS
1 *I SANTANA
1 *I ROTEN ROSEN
1 *I ROLLING STONES
1 *I RAMONES
1 *I QUATRO,SUZI
1 *I POP,IGGY
1 *I PINK FLOYD
1 *I MUELLER-WESTERNHAGEN,MARIUS
1 *I MOTORHEAD
1 *I METEORS
1 *I MC. LAREN,MALCOM
1 *I MATCHBOX
1 *I MARLEY,BOB
1 *I LONDON UNDERGROUND
1 *I LEEREN VERSPRECHUNGEN
1 *I LAUPER,CYNDI
1 *I LAIBACH
1 *I KREMER,GIDEON
1 *I JOPLIN,JANIS
1 *I JETHRO TULL
1 *I JARRE,JEAN-MICHEL
1 *I HOLLY,BUDDY
1 *I HENDRIX,JIMI
1 *I HARRY,DEBBIE
1 *I HANS-A-PLAST
1 *I HAGEN,NINA
1 *I HAENDEL
1 *I GOLDENEN ZITRONEN
1 *I FLEETWOOD MAC
1 *I EXPLOITED
1 *I DYLAN,BOB
1 *I DYLAN & THE DEAD
1 *I DIMPLE MINDS
1 *I DIE AERZTE
1 *I DICKIES
1 *I DEAD KENNEDYS
1 *I DAILY TERROR
1 *I COSTELLO,ELVIS
1 *I CORYELL,LARRY
1 *I CORTI,NINA
1 *I COLE,NAT KING
1 *I CINDERELLA
1 *I CHALIAPINE
1 *I CARUSO,ENRICO
1 *I BUZZCOCKS
1 *I BRAINTICKET
1 *I BOWIE,DAVID
1 *I BOSKOPS
1 *I BOLLOCK BROTHERS
1 *I BOCCERINI
1 *I BLONDIE
1 *I BLACK SABBATH
1 *I BEETHOVEN
1 *I BEATLES
1 *I BAUHAUS
1 *I BARRET,SYD
1 *I AUFQUELLENDE BRIEFTASCHEN
1 *I ARMSTRONG,LOUIS
1 *I ANDERSON,LAURIE
1 *I ALAN PARSONS PROJECT
1 *I ABWAERTS
1 *I ABSTUERZENDE BRIEFTAUBEN
1 *** START OF FILE ***
1 * THE EDITOR ASSEMBLER (SPECTRE-MAC)
1 ). BY ALEXEY PAZHITNOV * "
1 (STKTOP),HL ;delete the stack by overwriting
1 (STKEND),HL
1 (STAT),A;MIT 1 VORB.
1 (REPLACE).
1 (NEWPOS),BC
1 (MANPOS),HL
1 (LOWPOS+1),A
1 (LOWPOS),A
1 (IY+96) ;wird dieser Zweig
1 (IY+92),C ;X-Pos. merken.
1 (IY+001H),D
1 (IY+000H),E
1 (IX+01H),A
1 (IX+00H),A
1 (HIPOS+1),A
1 (FLDBAS),HL
1 (AKTPOS),HL
1 (ADR+1),HL
1 (5C5DH),HL
1 (23706),A ;8*YA -> 23706.
1 (23700),HL ;Char. -> 23700.
1 (23700),DE ;Anf'adr -> 23700.
1 (23698),HL ;verringern.
1 (23698),BC ;LEN(S$) -> 23698.
1 $WHILE COUNT<#1+1
1 "New name: ";c$
1 !d3210**MTE*CSLKP*>
1 !'|q#q#p#p#6
1 ZURUECK ZU NACHBR
1 ZURUECK INS BASIC
1 UPDATES OF THE LOADER:
1 UNTEN,RECHTS
1 UNTEN,LINKS
1 RECHTS,UNTEN
1 RECHTS,RECHTS
1 RECHTS,OBEN
1 OBEN,RECHTS
1 OBEN,OBEN
1 OBEN,LINKS
1 LINKS,UNTEN
1 LINKS,OBEN
1 LINKS,LINKS
1 13.09.1994
1 03.01.1988
1 WIENER KONZERTHAUS
1 WALTONES/THE FAMILY CAT/ULTRA 5/PRIMEAL UNKNOWN
1 WAGNER/MYERS/BACH STRAUSS/DONIZETTI/MOZART/J.STRAUSS/
1 VICTOR DE SABATA EDITION VOL. 6
1 VICE SQUAD/ADICTS/U.K.DECAY/DISORDER/PETER & TEST TUBE BABIES/
1 UDO LINDENBERG/PETER GREEN
1 TURNPIKE CRUISERS/QUAKES/UG AND THE CAVEMAN/MIGHTY CAESARS/
1 THE WIGS/RIVERSIDE TRIO/RAYMEN
1 THE TRASHMEN/SONICS/NOVAS/RALPH NIELSEN & CHANCELLORS/
1 STUPIDS/ELECTRO HIPPIES/EXTREME NOISE TERROR/BOLTTHROWER/
1 SPOTS/CODIENE COWBOYS
1 SOUNDTRACK
1 SHOWMEN/JAMES GOUAN/JOE TEX/JOE SIMON/NINA SIMONE/
1 SCHAUSPIELHAUS BERLIN(OST)
1 RUTS/SAINTS/SLAUGHTER & DOGS/JOHNNY MOPED/THE BOYS/CHELSEA/
1 ROCHEE & SARNOS/BAD KARMA BECKONS/DEMENTED ARE GO/
1 ROBERT CRAY/HOWLIN' WOLF/MUDDY WATERS/JOHN LEE HOOKER/
1 RAZZIA/SCREAMER/ABWAERTS
1 RAZORS/BUTTOCKS/CORONERS/SLIME/SS ULTRABRUTAL/COPSLAYERS/
1 RAPED/CURE/DAMNED/ANGELIC UPSTARTS/NEW YORK DOLLS/
1 RAMONES/SLAUGHTER & DOGS/BUZZCOCKS/UNWANTED/SEX PISTOLS/
1 PACHIBEL/PUCCINI/BARBER/RAVEL
1 NAPALM/PUNKENSTEIN/BIG BALLS & GREAT WHITE IDIOT/
1 NAKANO SUN PLAZA HALL, TOKYO 12.6.'77
1 MUNGO JERRY/EQUALS/CHRISTIE/GLITTER BAND/PAPER LACE/
1 MUD/HANK THE KNIFE & THE JETS
1 MITSCHNITT DES SOUNDS BEI EINER AUFFUEHRUNG
1 MARIA CALLAS, SCALA MAILAND 7.12.1952
1 MARIA CALLAS
1 LIVE IN USA 1964-65
1 LEGENDARY VEGETARIANS/CREEPSHOW/BAD KARMA BECKONS/
1 LEGENDARY STARDUST COWBOY/HASIL ADKINS/LINK WRAY/METEORS/
1 KOSEI-NENKIN KAIKAN, OSAKA 15.6.'77
1 JOE STRUMMER'S 101ERS/SURFARIS/EDDIE C.
1 JIMMY DICKINSON & CRAMPS/MILKSHAKES/TAV FALCO & PANTHER BURNS/
1 JERRY LEE LEWIS/TOWNES VAN ZANDT/YARDBIRDS
1 INTENSE DEGREE/UNSEEN TERROR/NAPALM DEATH/
1 INSANE/ABRASIVE WHEELS/CHAOS U.K./OUTCASTS/G.B.H.
1 IDIOTS/PAUL DAVIDSON/X-RAY SPEX/DAMNED/RESISTANCE/
1 IDEAL/PETER SCHILLING/FEHLFARBEN/
1 HYDE PARK LONDON JULY 5.1969
1 HURRICANE SMITH/DETROIT EMERALDS/FANTASTICS
1 HENRY KAISER BAND/MEMBRANES/THUNDERBYRDS/INSPIRAL CARPETS/
1 HAMMERSMITH 1964 ??
1 GUN CLUB/GEEZERS/STING RAYS/GUANA BATZ
1 GOLDEN HORDE/ALIEN SEX FIEND/LEVI DEXTER & RIPCHORDS/
1 GESAMTAUFNAME, PRIVAT-AMATEURMITSCHNITT
1 GESAMTAUFNAME 6.-20.JULI 1964
1 FRL.MENKE/TRIO/A.DORAU+MARINAS/
1 FATS DOMINO/THE BIG BOPPER/GENE VINCENT/LITTLE RICHARD/
1 FALCO/ZA ZA/CLIT/GRAUZONE/DER PLAN/VERA KAA
1 FALCO/EMERSON LAKE & PALMER/TULLIO DE PISCOPO/
1 ELVIS/CARL PERKINS/JERRY LEE LEWIS/LITTLE RICHARD/
1 EDDIE COCHRAN/WANDA JACKSON/CHUCK BERRY/DUANE EDDY/
1 DOEF/COMBO COLOSSALE/UKW/EXTRABREIT/
1 DOCTOR & CRIPPENS/DOOM
1 DISRUPTORS/RED ALERT/DEAD KENNEDYS/BLITZ/PARTISANS/DEMOB/
1 DION & THE BELMONTS/ROY ORBISON/JOHNY OTIS
1 DEE DEE BRIDGEWATER/DEXTER GORDON/DUKE ELLINGTON/
1 COMPLETE. (1-10)
1 CD3:BENNY GOODMAN
1 CD2:WOODY HERMAN
1 CD1:GLENN MILLER
1 CANNIBALS/KILLED IN ACTION/STING RAYS/VERTEX/NIPS/
1 BUNTER ABEND FUER EINE SCHWARZE REPUBLIK '87
1 BUDOKAN HALL,TOKYO-30.JUNI 1966
1 BONUS AUF V.1982:CH3
1 BOMB PARTY/DEATH OF SAMANTHA/3 IMAGINARY BOYS/ WHAT? NOISE./
1 BOLLOCK BROTHERS/VICIOUS/JOHNNY MOPED/EATER
1 BILL HALEY/BUDDY HOLLY/BRENDA LEE/JOHNNY & THE HURRICANS/
1 BBC RECORDINGS 1962-65
1 BBC RADIO REC'S 1963-65
1 BARRY BLUE/EDISON LIGHTHOUSE/FORTUNES/CHICORY TIP/
1 ALBERT KING/CHUCK BERRY/BO DIDDLEY/CARL PERKINS/
1 ;wird die Y-Posi-
1 ;wegschreiben:
1 ;vornehmen.
1 ;verringern.
1 ;um die Adr'differ.
1 ;staendig abgear-
1 ;normale Zeichen.
1 ;naechsten Char.
1 ;kulatorstapel.
1 ;heruntergezaehlt.
1 ;fuer das 8-Byte-
1 ;falls Zeilenende
1 ;erhoehen.
1 ;durchlaufen.
1 ;beitet, zurueck ins
1 ;YA -> 23705.
1 ;Y-Position um YA
1 ;Y -> 23703.
1 ;XA -> 23704.
1 ;XA & YA auf K-St.
1 ;X -> 23702.
1 ;Um 1 nach unten.
1 ;Um 1 nach rechts.
1 ;S$ auf K-Stapel.
1 ;PLOT-Routine.
1 ;Nur plotten, falls
1 ;Naechstes Zeichen
1 ;Musters laden.
1 ;Laenge und Adr. les.
1 ;HL verachtfachen,
1 ;Graphikcodes auf
1 ;Ggf. Basisadr. fuer
1 ;Falls kein Komma
1 ;Falls B$ voll-
1 ;Die restlichen
1 ;Den Char. lesen.
1 ;Den Char'code in
1 ;Dazu Basisadresse.
1 ;Datenber.-Ende.
1 ;CH-ADD auf S$.
1 ;Byte fuer Byte des
1 ;Blank; C. links
1 ;Bitmuster zu erh.
1 ;Basisadr. -> DE.
1 ;Basic. Sonst um 1
1 ;Adr. des folgenden
1 ;8 Bytes im Muster.
1 ;8 Bits pro Byte.
1 ;0 ... verringern.
1 ;"Hilfssprung".
1 8.9.1988 LONDON SYMPHONY ORCHESTRA
1 4.DIE GOLDENEN ZITRONEN (LP)
1 3.AM TAG ALS THOMAS ANDERS STARB (EP)
1 24K GOLD
1 2.DORIS IST IN DER GANG (EP)
1 2.CIRCUS KRONE,MUNICH 24.6.1966
1 2. MELBOURNE,WEDNESDAY,JULY 1,1964
1 16 UNRELEASED TRACKS
1 1.CONVENTION HALL,PHILADELPHIA 2.9.1964
1 1. ADELAIDE,SATURDAY,JUNE 12,1964
1 + CA. 6 BONUS
1 + BONUS "RUN RUN RUN" SEX PISTOLS??
1 (12-17)(18=PRESS CONFERENCE)
1 ;the address of the stack top
1 -> mem 0F
1 SIN A@ -> mem 10
1 + 2 BONUS
1 ODER (0)
1 LOAD 65100
1 LOAD 64800
1 LOAD 23296
1 XOR B
1 XOR A; No!
1 XOR A
1 SUB 32 ;Zeichensatzbeginn mit ASCII-Code 32.
1 SRL A ;barschaft werden um eine Stelle nach rechts
1 SLA L ;zugehoerigen Adresse
1 SLA L ;im Attributspeicher.
1 SLA L ;Textanfang
1 SLA L ;Bit 7 nach H, Flag fuer 4fach-Vergroesserung
1 SLA L ;Berechnung
1 SLA C ;Die neue Maske ist das Komplement der
1 SLA A ;Byte des aktuellen Zeichens ist
1 SET 7,D ;4 FACHE VERGR.
1 RST 16; Effectively "PRINT AT;"
1 RST 16; Bottom left corner of window
1 RST 16
1 RRCA ;*32
1 RLCA ;und zu einem
1 RLCA ;linke Haelfte geschoben (Rest Nullen)
1 RLCA ;eigenen ganzen Byte
1 RLCA ;aktuellen Byte wird in die
1 RLCA ;Byte des Zeichensatzes das erste
1 RLCA ;BC soll angeben, das wievielte
1 RL H ;steht schliesslich in Bit 2 von H.)
1 RL H ;der zum
1 RL H ;(Rechnung: HL = 32 * Zeile mit Uebertrag von
1 RL B ;letzten C*2 erforderlich.)
1 RET ; Return with zero in A
1 RET ; Return with 1 in A
1 RET ;Textanfang werden zurueckgeholt.
1 RET ;RUECKSPRUNG
1 RET ;
1 RES 7,D ;zur 4fach vergroesserten Strukturdarstellung
1 RES 2,D ;des Vergroesserungsflags.
1 PUSH HL ;Rettung von Textzeiger, Zeilen- und
1 PUSH HL ;Rettung von Textzeiger
1 PUSH HL ;11 Bytes Speicher-
1 PUSH DE; Save all registers
1 PUSH DE ;und Bildschirmadresse.
1 PUSH DE ;Spaltennummer fuer die Farbausgabe.
1 PUSH DE ;Merken der Bildschirm-Ausgangsstelle.
1 PUSH DE
1 PUSH AF; Save old value of MASK_P
1 PUSH AF ;Rechnung
1 POP HL ;naechsten Zeichen ueber,
1 POP HL ;Textzeiger wieder auf Textanfang.
1 POP DE ;Prozedur fuer das Bit links daneben.
1 POP BC ;naechste Byte
1 POP BC ;Zur Behandlung der
1 POP AF ;Mit der Rechnung
1 ORG 65100
1 ORG 64800
1 ORG 60000
1 OR E ;verschoben und mit dem linken Teil
1 OR 64 ;+ 64 ergibt sich das
1 LDIR; Transfer the line of pixels
1 LD L,D ;Zeilennummer
1 LD L,0 ;Zeichensatzanfanges und dann die Adresse
1 LD HL,TEXT4
1 LD HL,TEXT3
1 LD HL,TEXT2 ;TEXTZEIGER
1 LD HL,TEXT1 ;TEXTZEIGER
1 LD HL,TABLE; Start of address table
1 LD HL,22528; Start of attributes area
1 LD HL,(VARS); Start of BASIC variables
1 LD HL,(START)
1 LD HL,(POINT)
1 LD H,ZGR ;HL erhaelt zunaechst die Adresse des
1 LD H,0 ;in HL.
1 LD E,A ;bewahrt (Der Rest sind Nullen).
1 LD E,A ;Byte E der Bildschirmadresse.
1 LD E,A
1 LD E,6
1 LD E,0
1 LD E,(HL)
1 LD DE,LST10 ;ses neuen Bereichs
1 LD DE,(STEP); No. of chars just printed
1 LD DE,(START); Address of start of text
1 LD D,A ;hoeherwertige Byte D der Bildschirmadesse
1 LD D,88 ;Beginn des Spectrum-Attributspeichers
1 LD D,17
1 LD D,13
1 LD D,10 ;ZEILE 10
1 LD D,(HL)
1 LD C,A ;(Rechnung: BC=(A-32)*8.
1 LD C,240 ;Maske zur Teilung des Byte (zunaechst 240).
1 LD C,(HL)
1 LD BC,63520 ;auf Bildschirmstelle fuer
1 LD BC,31 ;die beiden Stellen
1 LD BC,(TOP); Move the "pointer" to the
1 LD BC,(STEP); Lenght of text
1 LD BC,(CHRS)
1 LD B,8; 8 pixel lines to be transferred
1 LD B,8 ;Acht Byte werden nacheinander mit dem
1 LD B,4 ;untere Haelfte (jeweils 4 Byte)
1 LD B,4 ;Die Bit 4 bis 7 werden betrachtet.
1 LD B,0; appropriate position in the table
1 LD B,0 ;Uebertrag nach B ist nur beim
1 LD B,(HL); Start of next line down in BC
1 LD A,E; If it is, we can print this length
1 LD A,C ;alten, enthaelt aber das aktuelle Bit
1 LD A,63
1 LD A,57 ;Farbattribut in A.
1 LD A,22
1 LD A,2
1 LD A,1
1 LD A,(TOP)
1 LD A,(STEP)
1 LD A,(RIGHT); Right hand column of window
1 LD A,(PAPER)
1 LD A,(MASK_P)
1 LD A,(LINES); Decrease the line count
1 LD A,(LEFT); Left hand column of window
1 LD A,(LEFT)
1 LD A,(INK)
1 LD A,(HL); Check next character
1 LD A,(HL) ;Die rechte Haelfte des
1 LD A,(HL) ;Die linke Haelfte des aktuellen Byte
1 LD A,(HL)
1 LD A,(COLOUR)
1 LD A,(CHRS); Width of window
1 LD A,(BOT); Bottom of window
1 LD A,(BOT)
1 LD (STEP),A; So store length to be printed
1 LD (STEP),A
1 LD (START),HL; Start of remaining text
1 LD (START),HL; Address of start of text
1 LD (START),HL
1 LD (POINT),HL; in the table. Save position
1 LD (POINT),HL; Pointer position stored
1 LD (MASK_P),A; Restore old value of MASK_P
1 LD (MASK_P),A; Effectively PAPER 8; INK 8
1 LD (LINES),A; Store the line count
1 LD (LINES),A; No. of lines to be scrolled
1 LD (LEN),A; Store LEN z$ (up to 255 only)
1 LD (LEN),A; Length of text remaining
1 LD (LEN),A; Any leading space is removed
1 LD (HL),E ;die Adresse LST10
1 LD (DE),A ;unmittelbar darunter.
1 LD (DE),A ;und auf die aktuelle Bildschirmstelle
1 LD (DE),A ;rechts benachbarte Stelle
1 LD (DE),A ;dem
1 LD (DE),A ;belegt.
1 LD (DE),A ;ausgegeben.
1 LD (DE),A ;ausgegeben,
1 LD (DE),A ;auf den Bildschirm geschrieben.
1 LD (DE),A ;Farbattribut kommt auf den Bildschirm.
1 LD (COLOUR),A
1 LD (CHRS),A; No. of characters per Line
1 JR Z,TEX9 ;Darstellung erfolgt
1 JR Z,TEX8 ;Sprung zum Farbteil.
1 JR Z,TEX7 ;zur naechsten Textstelle gesprungen.
1 JR Z,TEX12 ;beendet Farbausgabe.
1 JR Z,TEX11 ;naechsten Textstelle gesprungen.
1 JR Z,TEX10 ;Bei vergroesserter Darstellung
1 JR Z,TEX1 ;Darstellung
1 JR TEX9 ;Spaltensprung.
1 JR TEX6 ;Behandlung des naechsten Textzeichens.
1 JR TEX1 ;zusaetzlicher Spaltensprung.
1 JR NZ,TEX3 ;(Bit 7 von D wird zurueckgesetzt.)
1 JR
1 JP Z,PRINT; Print it if short enough to fit
1 JP Z,FOUND; Eureka!!
1 JP Z,CONT
1 JP Z,BLANK; Quit this loop if we have
1 JP REPEAT; Let's see if there are any more
1 JP NZ,SCAN; if not, process remaining text
1 JP NZ,DECR; If it isn't, a word is broken
1 JP NEXT; No luck yet. Try next variable
1 JP LOOP; Back for next line of characters
1 JP LOOP4
1 JP CHLOOP; and try again
1 JP C,SHORT; Yes!
1 INC HL; Move the pointer to the next item
1 INC HL ;fuer das
1 INC HL ;Naechstes Byte des Zeichens.
1 INC HL ;als Output-Adresse
1 INC E ;position auf dem Bildschirm
1 INC E ;erfolgt ein
1 INC E ;ein zusaetzlicher
1 INC DE ;werden auch die
1 INC DE ;Farbattribut
1 INC DE
1 INC D ;und unmittelbar darunter
1 INC D ;sowie auch von da aus
1 INC D ;Positionierung von DE
1 INC D ;Naechste Stelle auf dem Bildschirm
1 EX DE,HL ;und
1 EX DE,HL ;mit
1 EX DE,HL ;Positionierung von DE
1 EX DE,HL ;Adresse von HL nach DE.
1 EX DE,HL ;(Rechnung: DE = DE - 2048 + 32 .)
1 END ; of Source
1 DW 20704
1 DW 20672
1 DW 20640
1 DW 20608
1 DW 20576
1 DW 20544
1 DW 20512
1 DW 20480
1 DW 18656
1 DW 18624
1 DW 18592
1 DW 18560
1 DW 18528
1 DW 18496
1 DW 18464
1 DW 18432
1 DW 16608
1 DW 16576
1 DW 16544
1 DW 16512
1 DW 16480
1 DW 16448
1 DW 16416
1 DJNZ ZWIL1 ;des Byte vereint. Wiederholung der
1 DJNZ TRANS
1 DJNZ TEX5 ;des Zeichens.
1 DJNZ TEX4 ;unteren Zeichenhaelfte.
1 DJNZ TEX2 ;unmittelbar unter der vorherigen.
1 DJNZ LOOP7
1 DJNZ LOOP6; Back to colour the next square
1 DJNZ LOOP5; Back to colour the next line
1 DJNZ LOOP3
1 DJNZ LOOP2
1 DEC HL
1 DEC E ;auf Bildschirmstelle
1 DEC D ;Dieses wird rechts von der Ausgangs-
1 DEC B
1 DB 255
1 DB 012H,0,015H,0 ;FLASH 0; OVER 0
1 DB "VIERFACHER#"
1 DB "TEXTAUSDRUCK#"
1 DB "TEXT IN NORMALER GROESSE#"
1 DB "SKIP$$$TEXT#"
1 CPL ;und befindet sich in A.
1 CP B; Does remaining text fit window?
1 CP B
1 CP 90; z$ identified by code 90
1 CP 36 ;mit dem Zeichen $ wird zur
1 CP 36 ;Beim Zeichen $ wird
1 CP 35 ;Zeichen # beendet Strukturausgabe.
1 CP 35 ;Zeichen #
1 CP 32; is it a space?
1 CP 32; Is it a space?
1 CP 1
1 CP 0; Have we scrolled all the lines yet?
1 CP
1 CALL ZWIL ;wird auf ein ganzes Byte gestreckt
1 CALL ZWIL ;gestreckt.
1 CALL TRANS ;Schirmadresse des Textbeginns in DE.
1 CALL SKIP; Find next BASIC Variable (ROM)
1 CALL SCROLL
1 CALL PRINT; Print the pruned portion
1 CALL CHOP; z$ too long. Prune it
1 CALL 203CH; Print the text (ROM)
1 CALL 1601H; Use the screen
1 BIT 7,D ;Wenn Bit 7 von D gesetzt ist, erfolgt Sprung
1 BIT 7,D ;Bei vergroesserter
1 BIT 2,D ;Test und Zuruecksetzen
1 BIT 2,D ;Bei vergroesserter
1 AND D ;Das aktuelle Bit und seine rechte Nach-
1 AND C ;barschaft werden abgegriffen und in E
1 AND 7 ;Zeile modulo 8
1 AND 248 ;8 * INT (Zeile/8)
1 ADD HL,DE ;bei 88 * 256, Addition von 88 * 256 + Spalte.
1 ADD HL,BC;Move HL and DE down one pixel
1 ADD HL,BC; and store it in (POINT)
1 ADD HL,BC ;die untere Haelfte des Zeichens
1 ADD HL,BC ;des ersten Byte des aktuellen Zeichens.
1 ADD HL,BC ;darunter
1 ADD E ;+ Spalte ergibt sich das niederwertige
1 ADD A,B
1 ADD A,1
1 RET
1 LOAD 60000
1 ORG 60000